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Spread 
Sheets 

An in depth 
"how to" 
on using 
Spreadsheets 

MtereCaic 

Complete Mini 
Spreadsheet 
program for Apple, 
Atari, Commodore 
and TRS-80C 



Plus ... Reviews, 
Columns, and Much 
Much More 
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2-Percoi Data 3PERC0 
3-Perforiance Micro Products IPERFO 

4 -Perry Peripherals 2PERRY 

5-Pion Inc 1PI0N 
A-Professional Business Forss 3PR0FE 

7-Protetheus 4PR0ME 
8-Protecto Enterprises 

9-Pterodactyl Software 4PTERQ 

1#— R H Electronics 4RHELE 
11-RicNale Tel ecGiiuni cat ions 1RICHV 
12-Safe*are 

13-Scientific Software 3SCIEN 

14-S6C 4SGC 

15-Silicon Valley 4SIUC 

16-SJE Distributors 35JB 

17-Skyles Electric Works 4SKVLE 

1B-Spectrm Projects 2SPECT 

1?-Star Hicronics 2STARH 
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C64 Alarm Clock 

Master Directory for Apple 

Color Computer Memory Map 

Break Up for Atari 
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Developed by: 

.software ab "^ 
-a company in the Datatronic group- 




A Product of: 



Distributed by: 



DES-DATA EQUIPMENT 

SUPPLY 

213-923-9361 



SOFTEAM 
800-421-0814 



COMPUTER MARKETING 
SERVICES, INC. 
800-222-0585 



WAREHOUSE 1, INC. 
EASTERN U.S.(800-253-5330 
WESTERN U.S.-800-255-0056 



BLUE SKY SOFTWARE 
Ashland Office Center 
Evesham & Alpha Avenues 
Voorhees, NJ 08043 
609/795-4025 
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Prints double 
columns, form 
letters, multiple 
copies of a page or 
document, at the 
touch of a key. 



Numbers pages and 
creates section 
numbers 
automatically. 



Corrects spelling 
(with extra software). 



Chains and merges 
files. 



Changes line 
spacing, margins, 
print type, 
paragraph indents 
anywhere in the 
document. 



Instantly reformats. 



Enters text easily, 
with word wrap, 
one main menu and 
helpful prompts. 



Creates multi-line 
headers and footers. 



Has "print preview": 
you can check your 
copy before it's 
printed. 



You can't find a friendlier, more 

powerful word processor at twice the price. 

New AtariWriter Under *10O. 



Now you can do multi-featured word pro- 
cessing at home , simply. At a family budget price . 

Our ROM-based cartridge technology means 
you can use new AtariWriter on any ATARI® 
Home Computer (even 16K) for personal and 
business correspondence, term papers, commit- 
tee reports, mailings, etc. 

It also lets you choose between cassette and 
disk storage systems. 

One very special AtariWriter feature: you 
can correct as you write, without switching back 
and forth between Create and Edit modes. 



© 1983 Atari, inc. aii rights reserved. JW A Warner Communications Company 



And our memory buffer offers an "undo" 
command to let you change your mind, and re- 
store text you've just deleted. 

Check into our remarkable AtariWriter, and 
our choice of letter quality and dot matrix print- 
ers, also reasonably priced, at Atari dealers. Call 
800-538-8543 for dealer nearest you. In Califor- 
nia, call 800-672-1404. 

You 11 do more with 
Atari Home Computers. 
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Presented by £Gold DiskJI 

Featuring the finest in educational and home utility software for the Apple: 

ANIMATION GRAPHICS: PAINT PROGRAM 

Powerful yet easy-to-use shapes creator and animator for the novice or experienced graphics artist. 
Apple II or He, 48 K. 1 drive. $35.00 

ANIMATION GRAPHICS: SUPER SLIDE SHOW 

Powerful slide show creator for novice or expert. Apple II or He, 48 K. 1 drive. $29.00 



INTRODUCTORY SPECIAL: NOW THROUGH JANUARY 31, 1984: Buy both the PAINT 
PROGRAM and the SUPER SLIDE SHOW together for one low package price of $45.00. 



r 



SCANDURA MICRO-TUTOR II SERIES (Grades 1-5) 

Interactive and individualized instruction disks with hi-res graphics and the latest advances in cogni- 
tive theory. By Dr. Joseph Scandura, specialist in structural learning. 

— Complete Tutorial Arithmetic Series (4 disks complete). A total system to pinpoint your child's 
needs in arithmetic and get results. Apple II or He, 48 K. I drive. $135.00. With Diagnostic Pre-Test 
Option, $160.00. 

— Complete Language Arts Series (8 disks complete). Helps identify the language skills needed 
by your child and improves them dramatically. Apple II or He, 48 K. 1 drive. $400.00 

LOCUS MICRO-TUTOR (All Grades) 

Allows an educator to build a customized course for students on any subject matter with C.A.I, instruc- 
tion disks. Can also print and store test materials. No programming knowledge necessary. Apple II or 
He, 48 K. 1 drive. $59.95. 

LITMAS DATA SYSTEM 

High-speed system for data storage, retrieval and statistical analysis. Written by Eric Sohr, M.D., 
LITMAS is the only cross-indexing data base for the Apple, with up to 51 2 keywords possible, and up to 
2048 combinations of keyword phrases possible. LITMAS' speed is derived from its unique "bit map" 
structure. Delightfully-easy to use, excellent manual. Apple II or He, 48 K. 1 drive. $145.00 

BRAHMAN HOME HEALTH DISK 

Comprehensive medical information program. Written by an E.R. physician, this program can help 
you live healthier and possibly save someone's life. Factual, inclusive, consumer-oriented . . . Covers 
emergencies, injuries, drugs, treatments, etc. 2 full disks with 15 programs. Apple II or He, 48 K. 1 drive. 
$79.95. Annual update available. 

PRO— FORMA TAX PREPARER/TAX BREAK ANNUAL 

On time and reliable since 1981 — never missed a year's update. A sophisticated tax optimizer which 
quickly determines the lowest tax by automatically taking into account every benefit, loophole, exclu- 
sion, adjustment and credit possible. User-oriented and very fast, typically taking 3 minutes from data 
input to return preparation. Program generates a detailed 7-page tax summary report indicating what 
form, line number and amount to be entered to obtain the very lowest tax. Also contains a unique 
"AUDIT POTENTIAL SCORE" which compares your return with that of a typical taxpayer with the 
same income, alerting you to any unusually high deductions that could trigger an audit. Apple II or He, 
48 K. 1 drive. $129.95. Annual update available. 

Distributed by MOMENTUM through your local dealer, or call national order agent for VISA/MC or 
C.O.D. order at 1-800-368-2 260 in Marylan d, 301-592-5949. Or write to MOMENTUM, 300 W. 
3 1 st St., Baltimore. Md. 2 1 2 1 1 . flBFI (T^Tl 30 " DAY M0NEY BACK GUARANTEE ,F N0T SATISRED! 

APPtf « « TnAOEMARK Of *Pfn.E CO*IPUT£B WC 
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penguin s 



The Next 



the graphics peo 





At Penguin, we 

don't rely on the same old 

game formulas, adding to the mish-mash 

of look-alike games already on the market. We look 

for creativity, originality, and innovation. Games like 

Minit Man, challenging you with two types of arcade action 

simultaneously; Coveted Mirror, an adventure with animation and 

arcade games throughout; The Spy Strikes Back, an arcade game with 

strategy and a touch of adventure; Pensate and Tactic 9, games that make . 

you think; and Expedition Amazon, an intriguing and humorous fantasy game. 

And Each Is Only $19.95! More Fun For Your Money From Penguin Software 

Write for a free catalog 
830 Fourth Avenue, Box 311 Dept. C Geneva, IL 60134 For information - Gall (312) 232-1984 Dealer orders only - Call (800) 323-0116 

Apple is a trademark of Apple Computer, Inc. Atari is a trademark of Atari. Inc. Commodore is a trademark of Commodore Business Machines, Inc. IBM is a trademark* of International. , 
Business Machines Corp. Penguins are hard on pool toys. 
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Outsmart 
your computer. 



Show your computer who's boss. Earn its 
respect. With a Datamost book. 

No matter what age or ability level you're 
at, we have the right book that talks just to 
you. And your computer. Whether you own 
an Apple.* An Atari* Or just about any brand. 

All our books are incredibly easy to 
understand. 

Which will make it incredibly easy to 
understand your computer. 
What If You re Scared Of Books About 
Computers? 

Don't be. 

Our books are written in friendly famil- 
iar American English. Highlighted with 
cartoons. And illustrations. So they're fun 
to read. As well as educational. 

And there's over 30 books to choose from. 
Basic computer learning books to program- 
ming books to coloring books. 

You won't be bombarded with complicated 
programming routines until you're ready for 
complicated program- 



ming routines. And no 

funny technical talk _.- _ . - - x - — — . . ^,^j~wj.~.~j *~ 

until you've reached TllO ITIOSt OUI Of OUT minClS. Pretty smart, huh? 



the level where you don't think it's funny. 
We'll tell you what you need to know. 
And then, when that's understood, you can 
take the next step toward outsmarting 
your computer. 

Before You Spend Big Bucks On A Computer, 
Spend Little Bucks. 

Once you've decided, kind of, almost, 
nearly, what type of computer you think 
you'd like to buy, buy a Datamost book. 

It'll help you understand the Atari or the 
Commodore* or the Apple of your eye. 

Before you spend a lot of money. Before 
you take your computer home. 

You'll make a better purchase decision. 
Because you'll understand what you're 
doing. And what you and your computer can 
do together. 

So there won't be any misunderstandings 
to ruin your new relationship. 

How To Get The Most Out Of Your Computer. 
Get the most out of our minds. 

Datamost books for 
every computer. 
Everybody. Every level. 



DATAMOST 



Datamost, Inc., 8943 Fullbright Ave., Chatsworth, CA 91311, (213) 709-1202 

'Atari is a trademark of Atari Computer.'Apple is a trademark of Apple Computer. 

'Commodore 64 is a trademark of Commodore Business Machines, Inc. 
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Editorial 



lis There MICRO After IBM? 

I spent five years at a company that 
developed one of the first "micro- 
computers". It had only 8K bytes of 
(memory, but could support 20 mega- 
bytes of disk, up to 8 keyboard/ 
Idisplay stations, printers, modems, and 
Imuch more. I helped develop the soft- 
ware — from absolutely nothing to a 
(complete disk operating system with 
[multi-user, real-time, editors, 
(assemblers, a "high-level" language, 
(application packages, and much more. 
(At this time, the marketing division of 
(the company could not figure out how 
(to market this new product. Eventually 
(they solved the problem by waiting for 
(two or three years for IBM to catch up 
(technologically and to produce the 
13270 terminal. Then, our company 
(emulated it! When I quit in frustration, 
|the President spent well over an hour 
(discussing what I felt was wrong with 
|the company and what I would do to 
|improve it. I suggested that he fire 
|anyone that could spell IBM. 

That was in 1974. Now, it almost 
(looks as if history is repeating itself. 
|while others have developed superior 
1 systems and lead the way, everyone is 
(embracing IBM. How many of the 
(following developments are directly 
| related to the IBM announcements of 
lthe PC and the PCjr: DEC lost about 
1 30% of its market value in a couple of 
Idays; TI announced it was discontin- 
uing its TI99/4 completely; Atari con- 



tinues to report losses in excess of 100 
million dollars per quarter; Apple 
reduced the price on its LISA and Apple 
He; and all of the trade and financial 
journals speculate on IBM's dominance 
in the personal, home, and business 
markets. Almost every knowledgeable 
person will admit that IBM is not the 
best or cheapest — but, it is IBM. 

How does this effect you? There 
will be many pressures on you to con- 
sider an IBM as your next microcom- 
puter, or, perhaps to immediately 
replace your current system. If IBM has 
the impact predicted by some, then 
that might be hard to resist. 

How does this effect MICRO? 
MICRO was founded in 1977 to support 
the 6502 microprocessor which we felt 
was very good and which was not get- 
ting the attention it deserved. In 1981 
we expanded coverage to the 6809 for 
similar reasons. I expect that many 
popular magazines will reduce and/or 
eliminate their general 6502/6809 
based system coverage as IBM's 
significance grows. MICRO, however, 
will remain true to its charter — and 
continue to bring you the best of the 
6502 and 6809 worlds. 

Robert M. Tripp 
President/Editor-in-Chief 



Statement of ownership, management, etc., required by the act of 
Congress of October 23, 1962, of MICRO, published monthly at 
Chelmsford, Massachusetts, for November 1983. 

The name and address of the publisher is MICRO INK, 34 
Chelmsford Street, Chelmsford, Massachusetts. The President/ 
Editor-in-Chief is Robert M. Tripp of Chelmsford, Massachusetts. 

The owner is THE COMPUTERIST, Chelmsford, Massachusetts 
and the names and addresses of stockholders owning or holding 
one percent or more of the total amount of stock are: Robert M. 
Trfpp and Donna M Tripp of Chelmsford, Massachusetts. 

The known bondholders, mortgagees and other security holders 
owning one percent or more of the total amount of bonds, mort- 
gages or other securities are. none 

The average number of copies of each issue of this publication 
sold or distributed through the mails or otherwise to paid 
subscribers during the twelve months preceding the date shown 
above is: 21,857. 

I certify that the statements made by me above are correct 
and complete 

Signed: Robert M. Tripp 
President 'Editor-in-Chief 
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MicroSpec 

SOFTWARE MEANS 

BUSINESS FOR THE 

COMMODORE 64 



When it's time to get serious, it's time to boot up 
MicroSpec business software. Our complete line 
of business software is made to give you some real 
applications for your Commodore 64. From data 
base management to full accounting software, we 
have the package for you. 

It's attention to detail that makes our packages 
so beautiful and makes them stand out from the 
rest. We realize that most people are first 
time users, so we designed all our packages to 
be completely menu driven and user prompt- 
ed for each input. We also know that most 
people use only one disk drive, so we 
designed all our packages to virtually 
eliminate disk swapping. Other features like 
non destructive input routines really make 
our software easy to use. But all this doesn't 
restrict you. Pure random access file struc- 
ture maximizes your disk capacity and 
allows you to bring up any record for viewing 
in less than a second. 

In our efforts to put together the best pack- 
ages available, we worked on more than the 
software. We took the same approach with the 
documentation as the software. We made it com- 
plete and easily understood for the first time user. 
We even provide sample reports in many cases. 
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The Demonstration Package, which shows how 
each program runs, is available for $19.95. So, if 
you're serious about your 64, call or write for a 
complete brochure or go right down to your 
nearest computer retailer for a demonstration. 



WHEN YOU AND YOUR 64 ARE READY TO GET DOWN TO BUSINESS 

GIVE US A CALL 




No. 67 - December 1983 



P.O. BOX 863085 • PLANO, TX 75086 
(214)867-1333 
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^FEATURING PROGRAMS 
V FOR THE VIC-20 AND 
THE COMMODORE 64. 



.BOUNTY HUNTER $24.95* 



r 



An adventure in the Old West. Journey back with 
us into the days of Jessie James and Billy the Kid 
where the only form of justice was a loaded 
revolver and a hangman's noose. In this full-length 
text adventure, you play the role of Bounty Hunter, 
battling against ruthless outlaws, hostile Indians, 
wild animals and the elements of the wilderness 
with only your wits and your six gun. Average 
solving time: 20-30 hours. If you love adventures, 
this one is a real treat. 

Available for COMMODORE 64 and the VIC-20 
(with 8K or 16K expander). Available on TAPE or 
DISK. Played with JOYSTICK 



KONGO KONG 



$24.95* 



Climb ladders, avoid the barrels the crazy ape is 
rolling at you, and rescue the damsel. Commodore 
64 version features 4 different screens! 
Available for COMMODORE 64 and VIC-20. 
Available on TAPE or DISK Played with JOY- 
STICK. 



i. 



GRAVE ROBBERS $19.95* J 



Introducing the first GRAPHIC ADVENTURE 
ever available for the VIC-20 or COMMODORE 64! 
With realistic audio-visual effects, you explore an 
old deserted graveyard and actually see the perils 
that lie beyond. 

Available for COMMODORE 64 and VIC-20. 
Available on TAPE or DISK Played with KEY- 
BOARD 



r 



CHOMPER MAN 



$24.95.' 



k Ava 
\ STI 



Don't let the bullies catch you as you gobble the 
goodies! This program has 8 screens and still fits in 
the standard memory. 

Available for COMMODORE 64 and VIC-20. 
Available on TAPE or DISK Played with JOY- 
STICK or KEYBOARD. 



Victory 
Software 



WOULD LIKE TO WISH OUR CUSTOMERS 
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AND THANK THEM FOR THEIR 
PATRONAGE THROUGHOUT THE YEAR 



^THE • EARTH • WARRIOR • SERIES^ 



METAMORPHOSIS 



$24.95* 



'S 



You stumbled into the nest of the Cyglorx and 
find yourself fighting off robot tanks guarding 
the Cyglorx eggs. You think you have everything 
under control and then the eggs start hatching. 
Available for COMMODORE 64 and VIC-20. 
Available on TAPE or DISK Played with JOY- 
STICK 




CREATOR'S REVENGE 



$24.95* 



The creator assembled a massive army of robots and insects to take 
revenge on the earth. Destroy insects, get treasures, and get the neutron 
bomb deactivator. Battle robots and destroy the neutron bomb before it 
annihilates your city. Miss and you must face the mutants. Features 4 
different screens. 

Available for COMMODORE 64. Available on TAPE or DISK Played 
with JOYSTICK 



C LABYRINTH OF THE CREATOR $24.95* ] 




Journey into the most complex and dangerous 
fortress ever built by the creator. You will en- 
counter deadly robots, skulls, lakes, avalanches, 
false creators, and a creature who roams 256 
rooms relentlessly pursuing you. 
Available for COMMODORE 64. Available on 
TAPE or DISK Played with JOYSTICK 



ILLUSTRATIONS: ELIZABETH HAUCK 



• $3.00 additional for disk. 



Check your LOCAL DEALER or order directly. 

ORDERING: We accept personal checks, money orders, VISA and MasterCard. 

Charge orders please include number and expiration date. 

OVERSEAS ORDER: Please use charge, or have check payable through a U.S. 

bank. 

CANADIAN CUSTOMERS: If you wish to write a check drawn through a 

Canadian bank, please multiply the total order by 1.25 for proper conversion. 

Add $1.50 postage and handling per order. PA residents please add 6% sales tax. 



VICTORY SOFTWARE INC 

7 Valley Brook Road 

Paoli, Pennsylvania 19301 

(215) 296-3787 
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CALC 



by Loren Wright 



Micro Calc — What is it? 

Micro Calc is a calculation pro- 
gram, not entirely unlike the 
spreadsheet programs described 
elsewhere in this issue. It is much 
simpler than a program such as 
VisiCalc, and that simplicity results in 
both advantages and disadvantages. 
This is not a spreadsheet program, so it 
is limited to much simpler calcula- 
tions. However, as you will see from 
some of the examples presented later, 
there are many applications for such a 
quick calculational aide. All you need 
to know is the rules for BASIC 
arithmetic expressions. 

In this issue we offer a ten-line ver- 
sion for an unexpanded VIC-20 with 
cassette. We also offer a 15-line version 
for the TRS-80 Color Computer, 
20-line versions for the Commodore 
64, PET, and Atari 400/800/1200, and 
a 23- line version for the Apple. 

Haven't I seen this before? 

The ten-line version was first 
presented in the March, 1982, issue of 
MICRO. A number of typographical er- 
rors in that listing have been corrected, 
and there have been several im- 
provements. The VIC-20 version now 
includes the following additional 
features: 
s multiple statements on a line 

No. 67 ■ December 1983 



v* convenient implementation of 

programmable function keys 
•^ optional zeroing of user variables 

The Apple, Commodore 64, and PET 
versions have added: 

^ multiple statements on a line 
is function key implementation (C-64| 
is optional zeroing of user variables 
is disk support, with file name display 
S error trapping (Apple] 
s a total of 20 lines for calculations 
s separate comment lines, one 
opposite each calculation line 

The Atari version, presented here 
for the first time, allows limited use of 
IF... THEN, FOR... NEXT, and other 
BASIC constructions. The Color Com- 
puter version, also new, provides 15 
lines for calculation, multiple state- 
ment capability, and file name display. 

How to Use Micro Calc 

See the article in each section of the 
magazine for listings and specific in- 
structions. Below are general instructions. 

RUN the program. The screen will 
fill with a sample screen. This is 
designed to calculate the monthly pay- 
ment on an installment loan. On the 
Commodore 64 and the VIC-20, press 
the F7 key; on the others press the "@" 
key. The cursor will disappear for a few 
seconds, and then a number will appear 

MICRO 



next to the P? on the last line. This is 
the monthly payment calculated on an 
$8000 loan for 48 months at 11.9%. 
You may now move the cursor to the 
end of any line and delete and retype to 
try a different calculation. See what 
happens if the loan goes for only 36 
months, or at only 9.9%, or if you 
decide to borrow $10000. 

There are two kinds of statements 
allowed — assignment and value re- 
quest. An assignment takes the follow- 
ing form: 

[variable] = (BASIC numeric expres- 
sion] 

where [variable] is any single-letter 
floating-point variable name. 

A value request takes the following 

form: 
[variable]? 

Typical assignments include: 

X = 5 

A = X + 3 

J = SIN(X + 3*A) 

P = Y = 5 

Assignments may be combined on a 
single line by using semicolons or 
colons (see instructions for your 
implementation) : 

A = 5:P = 3.14159265:Z = TI 
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s-F-M*52eo- , -^^0^0:&^^^0 


f-int'cg)-' - " "-. ■ •~ : :y^^M$i!®jSe&- 


I* INT < (G-F>*12^^^S^¥^?^ 


M? ' ' ^'^s'^-t^iS^. 


F? aHBHHB 


I? -.,.... :■■ 


L 




".:■' > 




u= 


P=3. 14159265 . "V^^i^ 

v=18o-t-u. •,:■/,.".■■' v" .:^;- ; M>f 


v«p*v/i8o r '\jgS^ 

U=P*U/180 -.' -''-/"" ' -'.^|Ss|Sfe 


B=S I N (U) *C/S IN < V) '^«liSf 
B? * ■•-'■■■» "--srQ 








A= 


V*3. 141592&5*V/iB6 '^P^L"^'? 

d=a^-2+b a 2 . > c t^3&^,^.,:.: 


E=2*A#B*C0S(V> ■ /v;-^--^^;^.'.^ 


OSQR(D-E) - , , ^ ]i •*---. 







l^4Si»ENT: Calculates monthly.; 
^jj^tl|CTt;: 'given, starting balance A, I 
: ltB^|ei>Mrf.jii6nths M, an<} annual in- i 

^ tefestJtattf I. ' -■■••': -.-. : - 



^IKETRIC CONVERSION; pon- 
, v verts Jajbrneters to miles, feet, and 
iX^nekitesiatichL '.-•"■' " -.•••• ^ ■ ' ."-■.'■•- 



i,^;^I^g^ TRIANGI^: ,,, Calculate ^ a, i 
^MK^^.^de of - triangle, given/'lwo; 
:;::v^l^{ijn degrees). and ; .included side. 



;,§&LV| rTRIANGLE: . Calculate 
tbird side of triangle, given two sides \ 
anS included angle! : 



10 



MICRO 



No. 67 - December 1983 



Value requests may not be combined 
with any other statement on one line. 

How it works 

The Micro Calc program is written 
almost entirely in BASIC. None of the 
floating-point variables named with a 
single letter is used in the program 
itself. This allows the user all 26 of 
these variables on the screen. When the 
F7 or "@" key is pressed each assign- 
ment statement is POKEd into a special 
area of memory called the input buffer. 
Then a BASIC ROM routine is called to 
tokenize the expression. Finally 
another ROM routine that assigns 
variables (the BASIC LET function) is 
called to evaluate the expressions. 
With the Commodore versions, the 
machine code is only 48 bytes. 

The Atari version works a little dif- 
ferently. It uses an alternate screen on 
which you do your typing. Then, when 
you press the calculate key ("@"), the 
lines you have typed are copied to the 
actual BASIC screen (which is kept hid- 
den from the user) and RETURNS are 
executed on each line to execute the 
statements in the immediate mode. 

Atari BASIC is quite different from 
the BASICs on the other computers. 
The discussion below applies primarily 
to these other computers. Many of the 
things discussed will not work on the 
Atari. The Atari version has extra 
powers, such as IF... THEN and 
FOR... NEXT support, though. See the 
Atari section for details. 



When to Clear the Variables 

The latest version of Micro Calc 
allows you to clear the variables 
at your discretion. This process 
is only done automatically when the 
screen is cleared or or when a screen is 
SAVEd or LOADed. What are the ad- 
vantages? If you type in the screen 
marked "DISTRIBUTE", you will see a 
good reason why the variables aren't 
cleared automatically on each calcula- 
tion. Notice that the line labeled 
"BALANCE" at the top of the screen 
assigns a value to the variable B. This is 
where you type in the starting balance 
for your loan. The final calculation 
results in a new value for B. If you now 
go to the end of the top line and delete 
it entirely, the calculation will be per- 
formed using the B calculated in the 
previous calculation. Without 
automatic recalculation, variable M 
acts as a counter, incrementing once 
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each time the calculation is repeated. If 
the first line is left intact, though, the 
same calculation will be repeated, and, 
assuming nothing is changed, all the 
variables except M will come up with 
the same values as the previous time. If 
you want to zero M, you can just hit 
the zeroing key (F8 on C-64 and VIC, 
double quote on the Apple, and CLEAR 
on the CoCo), or you can explicitly 
assign M a value of zero as part of a 
multiple statement on the first line. 

Making a Decision without 
IF... THEN 

The "DEC-TO-HEX" screen 
demonstrates how to make decisions 
without using IF... THEN (which is not 
allowed in Micro Calc). The problem 
we want to solve is how to get the same 
screen to work on both signed and un- 
signed decimal integers. There are two 
ways to look at a 16-bit binary number. 
If unsigned arithmetic is used, all 16 
bits are used, so 1111 1111 1111 1111 is 
considered to be the equivalent of the 
decimal number 65535. If signed 
arithmetic is used, the most significant 
bit indicates whether the number is 
positive or negative. If the bit is on, the 
number is negative and the absolute 
value is determined by taking the two's 
complement. This same binary number 
that is 65535 in unsigned arithmetic is 
- 1 in signed arithmetic. 

The solution is to test for positive 
or negative within an arithmetic ex- 
pression. This is done in the line 
labeled "SIGNED". The expression 
D<0 tests whether the original 
decimal number is negative. If it is, - 1 
is assigned to the expression, it's 
multiplied by - 16, and 16 is added to 
the value of H, which is negative. What 
this really accomplishes is taking the 
two's complement of the most signifi- 
cant hex digit whenever the original 
decimal number is negative. The other 
three hex digits are calculated properly, 
whether the calculation is signed or un- 
signed. The Apple and Atari assign 1, 
instead of - 1, to a true statement, so 
your calculations should reflect the dif- 
ference. In this example, you would 
type H = H + (D< 0) * 16 for the Apple or 
Atari. This decision making capability 
is used similarly in the "HEX-TO- 
DEC" screen. The variable S is used as 
a flag: if it is less than 0, then the result 
is calculated as signed; if it is or 
greater, then the result is calculated as 
unsigned. The same change must be 
made for Atari or Apple screens. Other 
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applications of this decision-making 
ability would be testing a divisor to 
avoid a fatal ?DIVISION BY ZERO 
ERROR, and testing a counter to see if 
it has arrived at a specified maximum. 

Getting More into Less Space 

The Color Computer and VIC-20 
versions of Micro Calc offer less space 
for calculation due to memory or 
screen-size limitations. On the VIC-20, 
each line is only 20 characters long, and 
on both computers there are fewer lines 
available. Two techniques may be used 
to get around these limitations. 

Multiple statements may be used to 
perform two short assignments on the 
same line. For instance, in the "HEX- 
TO-DEC" screen, the statements 
D = D + J*16 and D = D + K may be 
combined into one line by separating 
them with a colon (semicolon on Com- 
modore machines): D = D + J*16:D = 
D + K. 

Statements that are too long to fit 
on one line may be broken into two 
separate statements by using an in- 
termediate result. For instance, the 
statement J = INT(I*D*B* 100 + .5)/100 
may be replaced (as is it was in the 
"DISTRIBUTE" screen) with two 
separate statements: J = I*D*B and 
J = INT(J.100 + .5)/100. 



Micro Calc Program Description 

Notes on all programs 

Of necessity, all of the comments in 
the following description do not 
necessarily apply to all of the programs. 
The reader is cautioned to take such 
comments as 'color' to apply only if 
your computer has the specified 
function. 

Initialization (A) 

The screen is cleared and the border 
and screen color set. The call to 
subroutine, READs in the bytes of the 
machine language program from the 
DATA statements and POKEs them 
into memory. A number of constants 
are defined, including the carriage 
return, delete, and other control 
characters. The number of lines is set 
and the arrays are dimensioned accord- 
ingly. A subroutine is called, which 
fills the arrays from the remaining 
DATA statements to make the sample 
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•■- *■■■■■?■*■■■"■. .:':;*::■. 4\ ■■k&---y.fy}}£. 


START BAL " 


. ' §#$~X-: >:-r J U^£4.^>^~.i 


DAYS/PER. 


V ->0-'.'. •■", ,:';'::'■ *-V''.V : .- --f ■":::- 


PAYMENT 


•• : P» '.'• "••''." /i;^'- •/ 


ANN £ 


v'l--'. ■'■•■;■'.: ^..:---^'-^:^ .^;, f .'v: 


DAILY DEC 


I-I/36500 


INTEREST 


J-I*D*B 


(ROUND) 


J»INT ( J»1Q0+. 5) /tOO 


TO PRINC 


C-P-J 


(ROUND) 


C- INT (C»lOO+. 5) /iOO 


COUNTER 


M-M+l 


TO INT. 


9^^m^Mm0^^^^^^X 


TO PRINC. 


^SSS^^I^i^fSS^S^Slt 


« PERIODS 


^^^^^^^^^^^^^ft^^H 




B-B-C 


NEW BAL 


^^^^pt^^^^^^^fcl^^ 



itie 
han 



DISTRIBUTE: Calculate distribu- 
tion of monthly payment to interest 
arid principal. Enter the requested, 
values for the starting balance.. B, \ 
days/period D, payment P, and annual 
interest rate I. To continue beyond the 
first month, perform the calculation, 
once,, then delete the first line. The 
new: balance will be retained as the 
starting balance for the next calcula- 
tion. The counter M will increment 
once for each calculation. 







DEC INPUT 


d» "''. - 'v^'^q... 


MS DIGIT 


H=INT(D/4096) : i=D-H#$Q96 




J-INT < I /256) ': K»I-J*256 ':'r- 




L«INT(K/16) ;\ 


LS DIGIT 


M-K-L*16 


SIGNED? 


H«H-(D<0)*16 . ; ^j - 


10= A 


-H? •■;. • ••••'-'■ >'WM'' : r-^K 


11»B 


. J?' , :...,,->-;■•*■;■":* .' i. .&:,. 


12-C 


L? •,:':::,• .4 'v,4'L t 


13-D 


■•■ m? :■.■;..•>?!-•'■>''■',"■ ,^" ; 


14-E 


"', ;"•■ ^,.t};io:-.j^-»v v -. 


15=F 





(Commodore use ;) 



(Atari and Apple use: 
H = H+(D<0)«16) 



DEC-TO-HEX: Calculate hex- 
adecimal equivalent of decimal integer 
: in' the range -32768 to 65535. - 













MS DIGIT 




''.•V -V--- 




LS DIGIT 


K- ■>"■:?<■ A;\~. 

D-H*4096 
D-D+ 1*256 
D»D+J*16 
D-D+K 






SIGNED? 


D-D+(H<0) #65536 . 






DECIMAL 


^SfKMfMSttK/m 






A=10 








B-ll 








C-12 








D«13 








E=14 








F=15 
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(Atari and Apple use: 
D = D-(H<0)« 65536) 



HEX-TO-DEC: Calculate decimal 
equivalent, given four-digit hex 
number. To interpret as negative 
number, precede first digit with - sign. 
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screen. The sample screen is displayed. 
Then the cursor is positioned for the 
first line, and a branch is made to enter 
the normal loop. If you want to skip 
loading the sample screen, delete the 
appropriate line. 

Main Program Loop (B) 

In general, the program consists of 
testing for characters from the 
keyboard. Certain characters are con- 
sidered to be control characters and 
must be dispensed with in special 
ways. Some of these involve branching 
to subroutines; others are dealt with 
immediately. Characters that aren't 
control characters are either accepted 
and added to the end of the current line, 
or they are rejected. After each 
character is processed, the flow usually 
goes back to the main loop. If the next 
character begins a new line, then a 
branch is made to reposition the cursor. 

Whenever the screen is cleared, the 
arrays are cleared and the screen 
blanked. If the new line contains a 
value request statement, then the line 
is blanked out to remove the printed 
value. The current line is printed, 
followed by the cursor. Characters 
from the keyboard are processed. Con- 
trol characters are tested and other 
characters are added to the current line. 

If the character causes the length of 
the line to be exceeded, then a cursor 
down or return is executed. Then the 
line number counter is incremented 
and tested. If maximum lines has been 
exceeded, then the necessary ad- 
justments are made to start work on 
the first line. Otherwise, the cursor 
is positioned at the beginning of the 
next line. 

Delete is handled by checking for an 
empty line. The necessary screen 
display parameters are set, and strings 
are adjusted with the LEFT$( ) function. 

The up-cursor character is handled 
in the following manner. If the new 
line is then the line counter is set to 
maximum lines, and the cursor is ad- 
justed accordingly. Otherwise, the cur- 
sor is moved up one line. 

The calculation command branches 
to a subroutine which handles the 
calculation and printing the results. 
The cursor is positioned at the end of 
the top line after the calculation. 

Comment Field Handling (C) 

The operation here is very similar 
to that of the calculation field. Things 
are simpler, though, since nearly every 



character is is allowed. Everything is 
printed in light green, and the re- 
mainder of each line is left unreversed. 

Input Subroutine (D) 

This is called by the main editor 
program. The various control char- 
acters are tested, then for the other 
characters. Acceptable ones cause 
return, while unacceptable ones fall 
through to get another character. This 
continues until an acceptable character 
is received. 

Calculation Processing (E) 

The calculation process may take 
several seconds, depending on the 
screen contents. Each line is examined 
with value request statements handled 
by one subroutine. The requested 
variable is placed into the appropriate 
element of the string array. An illegal 
line, with fewer than three characters, 
is skipped. Other lines are handled by 
the subroutine where the values are 
assigned by the machine language 
routine. 

Assignment Handling (FJ 

Each assignment line is POKEd into 
the input buffer, character by character. 
Whenever a colon (semicolon) is en- 
countered, that line is processed [a zero 
is POKEd for the Commodore pro- 
grams). When the end of the line is 
reached, the machine-language routine 
is executed, and the RETURN goes 
back to the calling routine. 

Get Character (G) 

The GET function accepts any 
character from the keyboard. If there is 
no character, then the program loops 
until there is. 

File Handling (H) 

The subroutine handles SAVEing 
the calculation and comment arrays. 
Similarily, the LOAD subroutine 
handles loading these arrays from tape 
or disk. Some of the programs check for 
disk errors and print error messages or 
allows a new file name. 

The prompt portion sets up a 
number of variables according to the 
responses. A disk or tape variable is set 
and appropriate file name strings 
established to either READ or WRITE a 
sequential file. Then the proper chan- 
nel is opened and the arrays either read 
from or written to the output device. 
(The Commodore routine includes an 
additional subroutine to reread the 



machine-language routine back into 
the cassette buffer, since all or part of it 
was destroyed during the file 
operation.) Then the screen is 
redisplayed, containing the old con- 
tents if it was a SAVE operation, and 
the new contents if it was a LOAD. 

Value Request Processing (I) 

As each line is processed in the 
subroutine, only lines ending in a "?" 
are sent here. Therefore, the first 
character is the variable name. Each 
letter is converted into a number from 
1 to 26. Flow of control is passed by the 
ON...GOSUB structure with 26 possi- 
ble branches. The rest of this 
subroutine consists of small subrou- 
tines, one for each letter of the 
alphabet. The value of the named 
variable is assigned to the appropriate 
element of the value array. 

Screen Print With Values (J) 

This causes the whole screen to be 
printed with values shown after each 
"?" The values are converted to a 
string using the STR$( ] function, and 
the remainder of the line is filled out 
with the appropriate number of re- 
versed underline characters. 

Read Machine Language 
Routine (K) 

The DATA statements contain the 
individual bytes of the machine- 
language program. The READ state- 
ment is used for each byte, and it is 
POKEd into succesive bytes of 
memory. This routine is called once at 
the start of the program, and (for Com- 
modore) again whenever a LOAD or 
SAVE operation takes place. 

Print Screen (L) 

The first time the subroutine is 
called, it prints the standard start-up 
screen. Later, the screen is printed with 
current array values and comments. 
Each screen line is printed according to 
the contents of the arrays. The current 
file name, if any, is printed at the bot- 
tom of the screen. 

Clear User Variables (M) 

Each of the user variables is set to 
zero. This routine is used when using 
successive calculations, such as A = A 
+ 1, to start over with different values. 

The rest of the program consists of 
the DATA statements used for the 
machine-language program and the ini- 
tial screen contents. JMCftO* 
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80 COLUMN PRINTER SALE— $149.00* 



COM-STAR T/F 

Tractor 
Friction 
Printer 



only 




(Parallel or Serial) 



• Lowest price quality tractor friction printer in the U.S.A. • Fast 80 characters per second 
40, 46, 66, 80, 96, or 132 characters per line spacing • Prints labels, letters, graphs, and tables 
• List your programs • Print out data from modem services 



*stx-80 column Double 

printer-$149.oo ; IT T c H H R E tf . ^Ti^Lac.^Mn" Immediate Replacement 

Prints full 80 columns. Super silent operation, 132 columns maximum. Double-width font also Warranty 

60 CPS, prints Hi-resolution graphics and Is standard tor each character pitch. 

block graphics, expanded character set, ex- We have doubled the normal 90 day warranty 

ceptionally clear characters, fantastic print . PROGRAMMABLE LINE FEED: program- '° 18 ° «?*„ Th ? r f ore " y ° u / p : in,er ' ails 

quality, uses inexpensive thermal roll paper! mable length from 1/144 to 255/144 inches. within 180 days from the date of purchase 

you simply send your printer to us via United 

DELUXE COMSTAR T/F ..„,.«.. „.„...,. — . ,«-. Parcel Service, prepaid. We will IMMEDIATELY 

PRINTER-S219 00 * 5 , , °,k . C ^!" 0L: P '°, 9 \T *>nd you a replacement printer at no charge 

rnll,ltn »*" iUU mable form length up to 127 lines, useful for . .. ' _, _ v , „ K .. ,.,_. a 

The Comstar T/F is an excellent addition to short orover-slzed preprinted form,. *' a Uni,ed Parcel Service, prepay This jwarran- 

any micro-computer system. (Interfaces are «"■ once a 9 ain - proves ,hat WE L0VE 0UR 

available for Apple, VIC-20, Commodore-64, • FRICTION AND TRACTOR FEED: will accept CUSTOMERS! 

Pet, Atari 400 and 800, and Hewlett Packard). single sheet paper. nAV CDCC TDIAI 

At only $219 the Comstar gives you print quail- 10 UAT TKCC I KIAL 

ty and features found only on printers costing • 224 TOTAL CHARACTERS noTinwc 

twice as much. Compare these features. OTHER OPTIONS 

• USES STANDARD SIZE PAPER ExtraRlbbons J 5.95 

• BI-DIRECTIONAL PRINTING with a LOGIC |, you want more try _ Ro " Pa P er Holder 32.95 

SEEKING CARRIAGE CONTROL for higher Roll Paper 4.95 

through-put in actual text printing. 80 Premium ftnslltu 5000 Labels 19-95 

characters persecond. COMStTr 7f SUPER-10X ^^ *" **" "** 

. PR.NTING VERSATILITY: standard 98 ASCI PRiNTER-$299.00 ZofweL^Ms^leaTadd ' 6 % 'taxTdd 

Scripr:: 3 ^WEJlTE More Features Than RX-80 !K ^T^otJ^VJio, ^ 

includes up to 224 characters. For $299 you get all of the features of the *b A £^^™,^ r- S N0T f. XP0R l T ,° 

Comstar T/F plus 10" carriage 120 cps, 9 x 9 0THER COUNTRIES. Enclose cashiers check. 

• INTERFACE FLEXIBILITY: Centronics Is dot matrix with double strike capability for 18 money order or personal check. Allow 14 days 
standard. Options include E1A RS232C, 20mA x 18 dot matrix. High resolution bit image (120 for delivery, 2 to 7 days for phone orders. 1 
Current Loop. x 144 dot matrix), underlining, backspacing, da V express mail available!! Canada orders 

left and right margin settings, true lower must be in U.S. dollars. 

• LONG LIFE PRINT HEAD: 100 million descenders, with super and subscripts, and F9F9F^T'E^ C*T"C^ 
character life expectancy. prints standard, Italic, Block Graphics, special F^H^J t Ea ^^ I tJ 

characters, plus 2K of user definable char- r>iTCDDDl7CC 

• THREE SELECTABLE LINE SPACINGS: 6, 8 acters. For the ultimate in price performance EIMT tnrnKC ^ (WE LOVE OUR CUSTOMERS: 
or 12 lines per inch. the Comstar T/F Super 10" leads the pack! BOX 550, BARRINGTON, ILLINOIS 60010 

Phon* 312/3825244 to order 

SUPER-10" ABCDEF6H I JKLMNQPQRBTUVMXYZ 

ABCDEFGHIJKLMNOPQRBTUVWXYZ 1234 367890 

GRAFSTAR (Apple interface card • "Like Grappler Plus") SALE $69.00. 
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SUPER 

COM-STAR T/F 15" PRINTER 

SALE $ 379 00 

NOW YOU CAN BUY A TRACTOR-FRICTION 

15" CARRIAGE PRINTER 

FOR AN INCREDIBLE $ 379 00 



iil@lf 

COMSTAR 15' 



EPSON* 

MX-100/TypellI 



OKIDATA* 

MICROLINE 83A 



Warranty 



Thts ttfeii to uandard »ar runner Can-tip: ivm b) munutjiti 
Complete inlurm iiion u available at youi ptao.- ot purchaK 



Suggested Retail Price 

Price* ihown arc based on d;iia from each nianufauu 
Actual mail pricci (nay <-arv 



Special Price 



180 day 



$599. 



$379. 



90 day 



$749. 



•Ep*on and Okxlaia arc rrgiMernJ if jiJeniaf k-> or' £1*011 America. Int »nd (Hklata Corg> rnpttlivdy. 

Now you can save big on the Com-Star 15" dot matrix printer 
from Protecto, while they last! 

It's the 15/ 2 " carriage printer that combines the most advanced 
features with a price that's better than ever. And component by 
component, Com-Star 15" is so reliable, Protecto can warranty it 
for up to twice as long as its major competitors. 

The popular Com-Star 15 ". A great printer at a truly great price. 
When you add it up, it figures to be a super sale. 



90 day 



Buffer 


2.3 K 


1 Line 


1 Line 


CPS 


100 


80 


120 


CPI 


10.12.17 


10.17 


10.17 


Over 80 Type Fonts 


Yes 


No 


No 


Block Graphics 


Yes 


No 


No 


Special Character Sets Available 


Yes 


No 


No 


Roll Paper Holder Standard 


Yes 


No 


No 



$899. 




• LOWEST PRICES • 15 DAY FREE TRIAL • 90 DAY FREE REPLACEMENT WARRANTY 
• BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL • FREE CATALOGS 



•Add $17.50 for shipping, handling and insurance, Illinois residents 1 

I please add 6% tax. Add $35.00 for CANADA, PUERTO RICO, HAWAII I 
I orders. WE DO NOT EXPORT TO OTHER COUNTRIES. I 

'Enclose Cashiers Check, Money Order or Personal Check. Allow 14 days' 
"for delivery, 2 to 7 days for phone orders, 1 day express mail! Canada J 
lorders must be in U.S. dollars. VISA — MASTER CARD — C.O.D. I 



pMirPRPRI7P5^ WE LOVE OUB CUSTOMERS! 

BOX 550, BARRINGTON, ILLINOIS 60010 
Phone 312/382-5244 to order 
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What does a Spreadsheet Do? 

There are many software packages on the market 
today which have a multitude of uses for business 
and accounting applications, whether you own a 
multi-national conglomerate or are managing your own 
checkbook. Some are fill-in-the-blank accounting pro- 
grams designed with a specific job or a specific set of jobs 
in mind. These are usually known as accounting packages: 
general ledger, accounts receivable/payable, payroll, and 
others. Many are designed to be general in nature, so that 
you can program your own particular functions into the 
software. These are spreadsheet packages that can do 
accounting functions, as a well as act as a mini data-base. 
Some are designed to be project oriented with specific 
abilities to organize and layout planning strategies. Others 
are designed to be multi-purpose with planning and 
spreadsheet capabilities combined. 

This month we plan to concentrate on spreadsheet 
packages — how do they work, what do they offer and who 
can benefit from them. While each product has its own 
syntax and specifications, many of the features can be 
found on all of the spreadsheet packages and a look at the 
generic options will give you an overview of what they 
can do. 

The standard display screen is a series of columns (nor- 
mally designated alphabetically) and rows (normally 
desiginated numerically), blank at the beginning. Each in- 
tersection of row and column has a name (A1,C67,GG145...). 
These individual blocks are called "cells". 

Each cell can contain one piece of information. You 
can define the size and type of the individual cells, or 
whole columns or rows. The size parameter can help save 
space on the screen by keeping the columns close together. 
The type parameters (such as Label, Integer, $, left or right 
justified...) help prevent input errors and neaten the 
appearance of the screen format. Each cell can be a number 
(value), name (label) or computation (formula). Values can 
be positive or negative, integer quantities or floating-point 
constants; labels can be names or numbers; formulae can 
contain any of the allowable computations grouped in any 
desired manner by use of parentheses. Cells can also 
reference other cells by name. If cell D8 contained B5, 
then the value of D8 would be the same as the value of B5. 
If it contained @SUM(A1...A124), then the value of D8 
would be the sum of the values contained in all the cells 
from Al through A 124. 

The real advantage to an electronic spreadsheet pro- 
gram is the instant feedback for each calculation entered. 
Upon entering a formula, the spreadsheet is immediately 
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recalculated (assuming recalculation is turned on), and the 
value presented on the screen. This gives you a 'rough 
estimate' glance to see if the formula is at least in the 
ballpark. Normally, when writing a program to perform 
calculations, you don't get a chance to see the output of 
any particular formula until you run the whole program, 
or at the minimum, a compilable module. 
Basic Functions 

In addition to the standard + - * / < > and A , most 
spreadsheet programs contain functions similar to the 
following: 



@ABS 


Return absolute value 


©AND 


Return TRUE if all TRUE 


©AVERAGE Calculate mean of list 


@EXP 


Raise e to a power 


©FALSE 


Return FALSE 


©IF 


Select value based on condition 


@INT 


Truncate value 


@LN 


Return natural log 


©LOG 


Return log base 10 


©MAX 


Return maximum value in list 


©MIN 


Return minimum value in list 


©NOT 


Return TRUE if FALSE else FALSE 


©NPV 


Calculate Net Present Value of list at dis 




count rate 


©OR 


Return TRUE if any TRUE 


©PI 


Return value of Pi 


©ROUND 


Round a number to specified places 


©SORT 


Return the square root 


©SUM 


Calculate the sum of a list 


©TRUE 


Return TRUE 



Many of the newer spreadsheets also contain transcen- 
dental functions, standard deviation, internal rate of 
return and other specialized accounting functions. 

©ACOS Arc-cosine function 

©ASIN Arc-sine function 

©ATAN Arc-tangent function 

©COS Cosine function 

@DIF Calculate the difference of a list 

©FRA Return the fractional part of expression 

©IRR Return the internal rate of return 

©PDIF Return the percentage difference 

©SIN Sine function 

©STDDEV Return standard deviation of a list 

©TAN Tangent function 

No. 67 - December 1983 



Who Can Benefit? 



IA ][B 3IC m HE ]I H6 ][H HI HJ HK HL HH 3IN HB 

i" There are many different commands to operate on a 
j_ worksheet, I will mention a few that should be considered 

4- when buying a spreadsheet software package. All have cur- 

5- sor movement from column to column, and row to row. 
*~ Some allow movement to rows and columns by multiple 
» movements. In addition to particular formats mentioned 
9_ above, some work sheets allow "hidden" cells (the data is 

If- not displayed). You should be able to set the width of col- 
li" umns. The replicate command should have a "relative" 
jj" copy, to copy cells with row and column orientation in- 
j*_ eluded. Most work sheets allow "windows", either 

15- horizontal or vertical screen splitting, with synchronous 

16- or unsynchronous scrolling. Some packages allow a "data 
f?~ save" to a textfile that can be operated on by a BASIC pro- 
jo,, gram, data base manager, mailing list or text processor. 

20- 
21- 
22- 

23- 

«J There are many uses for a spreadsheet package, ranging 

25_ from storing data in lists to complicated accounting pro- 

26- cedures. The main limitation on all home computers is 

27- the amount of available RAM to store the input informa- 
*■*" tion. In addition to the memory consumed by the program, 
3§_ most of the spreadsheet programs require that all of the 

31- data be in memory all of the time. Even with the efficiency 

32- of storing data in a compact format, it doesn't take a very 

33- great number of columns and rows to deplete a 64K 
«~ machine. (One new program, Multiplan, implements a 
3^_ "virtual memory" system which allows spreadsheet data 

37- to be as large as available disk space by swapping into and 

38- out of memory, the sections of the data currently being 
j'~ used.) This explains all of the interest in additional RAM 
*._ cards to increase the available RAM to 128K or more. Some 

42- spreadsheets allow up to 512K of additional memory. 

43- Very specific applications that can be expected to re- 
VJT main unchanged, such as maintaining a checkbook, are 
iil probably handled more easily with a dedicated program. A 
47_ spreadsheet is very useful for applications that change 
48- 
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often, being easily modifiable, and with instantaneous 
feedback as to the correctness of the calculations. Some 
applications, such as your income tax, change with each 
use. A spreadsheet set up to calculate your Form 1040 
could be easily modified each year to account for changes 
in the form by the IRS. A dedicated program designed for a 
particular year would have to be rewritten each subse- 
quent year. 

Small database applications — for instance, lists of 
names, addresses and telephone numbers — can be easily 
maintained and sorted (only newer products have 
automatic sorting capability) by zip, last name, etc. 

The ability to see and adjust the screen formatting is 
also very useful. Printed output for monthly finances, 
budgets and other reports is quickly generated and the 
templates can be used again each time a new report 
is needed. 

Anyone connected with a statistically-oriented team 
(what sport isn't?) can keep records and all the associated 
stats easily and make updates quickly and effortlessly. 
Bowling league, Little League and local school teams can 
benefit from accurate reports generated on a timely basis. 

Some Samples of Use 

Spreadsheets can be used for tracking expeditures 
against a proposed budget. Many companies have to 
allocate an advertising budget amongst several different 
media and products. It is a simple matter to design an 
overall budget plan and then juggle figures on the spread- 
sheet to develop a good mix between emphasized products 
and target audiences. Recalculation of the budget totals is 
swift and feedback of the effects of various strategies is 
essentially, instantaneous. 

Bid preparation can be handled well on a spreadsheet. 
Since pinning down all the expenses is very difficult, and 
profit margin depends a great deal on the accuracy of the 
bidding, a tool for juggling the numbers facily is a great 



49- Prograe 
50- 

51- A Financial (lizard 1.5 

52- Accountant 

53- BusiCalc 

54- Business Planner 

55- Business Planning Tool 

56- Calc Result 

57- CalcStar 

58- Desktop PLAN 

59- BYNACALC 

60- ElitetCalc 

61- FCS-EPS 

62- Financial Analysis 

63- Financial Modeling 

64- Financial Planner 

65- FORECAST 

66- Log i Calc 

67- WA6ICALC 

68- ikroFINESSE 

69- Hi cro-DSS/Fi nance 

70- Hultiplan 

71- Optimizer 

72- PeachCalc 

73- PLANS* 

74- Senior Analyst II 

75- Spectaculator 

76- Super "Color " Calc 

77- SuperCalc 

78- TABULA RASA 

79- Visicak 

80- VI -CALC 



Manufacturer 

ON LINE Computer Centers 

Decision Support Software 

Skyles Electric Works 

Duosoft Corporation 

Sofstar 

Computer Marketing Services 

MicroPro International 

Visicorp 

Computer Systets Center 

Elite Software 

EPS 

Aeronca /Execuiiare 

Georgia Tech Research 

Ashton-Tate 

Northwest Analytical 

Software Products International 

Artsci 

The P-E Consulting 6roup 

Ferox Microsystems 

Microsoft Corporation 

Super soft 

Peachtree Software 

Digital Marketing Corporation 

Apple Computer Coepany 

Radio Shack 

Nelson Software Systems 

Sorcie Corporation 

Computer Systets Consultants 

VisiCorp 

United Hicroware Industries 



10944 North Hay 
1438 Ironwood Drive 
2316 South Nhisian Road 
1803 Wood Held Drive 
13935 Highway 1 
300 Nest Marl ton Pike 
33 San Pablo Avenue 
2895 banker Road 
13461 Olive Blvd. 
Box 11224 

One Industrial Drive 
4530 Park Rd., Suite 348 
225 North Avenue 
10150 N. Jefferson Blvd. 
1532 Southwest Morrison 
10343 Roselle Street 
5547 Satsuea Avenue 
Park House. Eghai 
1701 N. Fort Meyer Dr. 
10700 Northrup (by 
P.O. Box 1628 
3445 Peachtree Rd. NE 
2363 Boulevard Circle 
20525 Mariana Avenue 
300 One Tandy Center 
9072 Lyndale Avenue, So. 
2310 Lundy Avenue 
1454 Latta Lane 
2B95 Zanker Road 
3503-C Teeple Avenue 



City, State 

Oklahoma City, OK 
McLean, VA 
Mountain View, CA 
Savoy, IL 
Juno Beach, FL 
Cherry Hill, NJ 
San Rafael, CA 
San Jose. CA 
Chesterfield. HO 
Pittsburgh, PA 
Kindhae, NH 
Charlotte. NC 
Atlanta, 6A 
Culver City, CA 
Portland, OR 
San Diego, CA 
North Hollywood, CA 
Surrey. England 
Arlington. VA 
Bellvue, NA 
Chaapaign, IL 
Atlanta, SA 
Nalnut Creek, CA 
Cupertino, CA 
Fort North, TI 
Minneapolis, MN 
San Jose, CA 
Conyers, 6A 
San Jose, CA 
Poeona, CA 



ZIP Computer 

73120 Atari 
22101 Apple 
94041 Pet/C64/Vic 
61874 Apple 
33408 Apple 
08002 C-64 
94903 Apple CP/M 
95134 Apple 
63017 Flex 
15238 TRS-B0C 
03087 Apple 
28209 Apple 
30332 Apple CP/H 
90230 Apple CP/M 
97205 Apple CP/M 
92121 Apple 
91601 Apple 
Apple 
22209 Apple 
98004 Apple /C44 
61820 Apple 
30326 Apple CP/M 
94595 Apple CP/M 
95014 Apple 
76102 TRS-80C 
55420 TRS-80C 
95131 Apple CP/M 
30207 Flex 
95134 Apple/Pet 
91768 Vic 
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■ help in maximizing profit. All of the various factors — 
consulting, labor, equipment, materials and sub- 
contracting — can be charted, with considerable 
" what - i/ing" being done with the figures to arrive 
at an appropriate idea of expenses. The expected margin 
of profit can be added with some assurance that the final 
figures have taken a good deal of the risks involved 
into consideration. 
| Many small accounting type problems can be easily 
solved without resorting to large, unwieldy, fixed-format 
accounting packages. This is especially true of smaller 
businessmen who might not want to spend a lot of money 
for special accounting software that would need to be 
tailored to their own particular business. A spreadsheet 
can do multiple checkbooks, prepare invoices and pur- 
[ chase orders, track accounts payable and receiveable, and a 
multitude of other accounting functions. While none of 
the "just" spreadsheet programs can match a fully 
developed accounting system, some of the newer spread- 
sheets can do most, if not all, of the job. 

At MICRO, we use a spreadsheet program for much of 
our work involving simple accounting procedures and 
data-base management. It keeps all of our paper work 
under control and we only have to enter names and ad- 
dresses one time, with everyone sharing the files for addi- 
tional uses. For instance, to help with the organization of 
the advertising department, we have a list of advertisers, 
such as figure 1, which can include such information, in 
addition to names and addresses, as account number, 
advertising pages, page size, page rate, commissions, and 
sales regions. 

From such a master list, it is a simple matter to sort the 
list monthly by current page size, deleting the accounts 
that are currently inactive, alphabetizing the remaining 
1 accounts for a monthly advertising summary. The next 
step is to sort the list by region [figure 2) so that each sales 
j representative can see the totals for his region and in com- 
parison to the other regions. We can add magazine page 
numbers to the list (figure 3) and dump the list to a text 
file, instead of the printer, and transfer it to the typesetter 
to compose the advertisers' index without rekeying all the 
names. (See MICRO 59:54 for furthers details of our 
typesetting communications.) 

A quick look at a work sheet to figure monthly income- 
expenses shows how simple a work sheet template can be, 
but still have a useful function. With a minimum of effort, 
each month, a quick summary can be prepared by entering 
the few necessary figures. 

Figure 4 illustrates how formulae are stored in cells. 
The third column (C) contains the formula for the sum of 
cells Dn and En where n is the row number. This column 
is easily filled in by defining the formula in cell C5, and 
then, using the Replicate command with "relative" 
values, copying that cell into C6...C78. The formula in 
C80 is the sum of column C, and that is replicated into D 
and E. The screen display can show either the calculated 
values or the actual formulae. This is set from the com- 
mand line. 

This figure is a split example to demonstrate the rela- 

H tionship between formulae in the cells and the values in 

jjl the cells. The chart was printed out once in formula dump 

jj§| mode and once regularly and then superimposed to give 

IBB the illusion of the formulae being present with the values. 

Record keeping for a team such as baseball or soccer is 
jj easily managed on a work sheet (figure 6) . Such a list can 
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©CHOOSE Returns 


@COL 


Returns 


©COUNT 


Returns 


©ERROR 


Returns 


©INDEX 


Returns 


©ISERROR Returns 


©ISNA 


Returns 


©LOOKUP Returns 


@NA 


Returns 


©ROW 


Returns 






easily be sorted by last name for a team roster, by birthdate 
for eligibilty and yearly updating, by phone numbers for 
a telephone tree, by zip code for a mailing list or by 
other factors such as individual game statistics or per- 
sonal factors. 

Other topics that lend themselves to worksheet solving 
include accounts receiveable ageing, invoicing from inven- 
tory, cost recovery, production scheduling, estimating, 
checkbook ledger, engineering formulae, accounts 
payable, payroll reporting, monthly sales reporting, daily 
inventory and financial forecasting. 

Advanced Uses 

There are additional features to be found on most 
spreadsheet packages. These are more complicated to use 
and require a deeper understanding of how a worksheet 
functions. These include, but are not limited to: 



the value of a particular cell 
the current column number 
the number of cells in a range 
error message 
value next to match 
TRUE if ERROR, otherwise FALSE 
TRUE if NA, otherwise FALSE 
value less than or equal to match 
NOT AVAILABLE error 
the current row number 

The ©CHOOSE function is useful for selecting a value 
from a pre-determined list. It is similar to ©LOOKUP, ex- 
cept that the table does not have to be defined in the 
worksheet proper. For instance, if you knew that in Trial 1 
you wanted to use an interest rate of 1 1.5%, in Trial 2 you 
would use 13.5%, and in Trial 3 you would use 17.875%, 
by defining cell C4 to contain the particular number of the 
trial you are running, the following formula can be used 
anywhere in the sheet to substitute for the appropriate in- 
terest rate: 

@CHOOSE(C4,. 115,. 135,. 17875) 

When cell C4 contains a 1, the value returned is .115, if it 
has a 2, then the values is .135, and if it has a 3, the value 
is .17875. 

The ©COL function is useful for indexing items that 
ascend by increments of one, such as dates. The value for 
column A is 1, B is 2 and so on. If you replicate a formula 
such as 

1982 + ©COL 
across the top of the worksheet, you will quickly generate 
a yearly sequence. 

The ©ROW function is useful for indexing items that 
ascend by increments of one, such as counters. The value 
for row 1 is 1, 2 is 2 and so on. If you replicate a formula 
such as 

©ROW-6 
down the side of the worksheet starting in row 7, you will 
quickly generate a numbered list. 

The ©COUNT function is useful for determining n, 
the number of items used in calculating a particular for- 
mula. Such a determination is necessary in many 
statistical analyses, such as NPV or STDDEV. ©COUNT 
includes only values in the specified range, it does not 
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^ sorted by acjcountreglon 



1-EAOV-H023 

3- Advertiser 

5-AB Comuters 

6-Acorn Software Systems 

7-Alternative Energy Products 

8-AipIify 

9-Apogee 

10-Apple Tree Electronics 
11-ArButus Total Soft 
12-Arlc Coapoters 
tJ-Aaror a Software 
M-Avalon Hill 
15-Check-Hate 
16-Coaiander Hagazine 
17-Coaaunications Electronics 
18-CoapuTech 
19-Coapoter Exposition 
20-Coaputer Hail Order 
21 -Coaputer Marketing 
22-Coaputer Sri'-- 
55-r.nm.K* 
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I count labels or blanks. You can specify a list, range or list 

I of ranges in the argument. 

The ©LOOKUP function is very useful to read elements 

! of a table included in the worksheet. Suppose a software 

| package had the following price based on quantity: 
Quantity Price/Package 
100 22.95 

1300 17.95 

500 14.95 

1800 11.95 

000 9.95 

j This would be entered in the worksheet in two adjacent 
columns, say D and E. The price per document can be 
entered anywhere in the worksheet by the formula: 
@LOOKUPjB2,Dl...D5) 

The ©LOOKUP function would determine the quan- 
tity ordered from cell B2, say 650, and then skim through 
the D1...D5 column looking for a value larger than the 
current value. When it finds one, in this case at D4, it then 

| backs up one entry and reads the value in the next adjacent 
column, here 14.95 (from E3), and returns with this value. 
It is also possible to specify the range to be searched as a 
row, and the value will be taken from the row below the 
searched row. 

The ©INDEX function is the same as the ©LOOKUP 
function |cf.], except that an exact match is required. 
The ©ERROR function is used in several different 

! ways. ©ERROR displays the word "ERROR" in the cur- 

| rent cell, and in any cells with formula references to that 
cell. It can be used in tables with CHOOSE, INDEX or 
LOOKUP formulae to screen out invalid table entries. It 

I can also be used in combination with an ©IF statement to 
exclude certain values from an acceptable range. For in- 
stance, if you wanted to sum a range of numbers only if Al 
was in the range of 50-100, then the following formula 
could be used: 

@IF(@AND(AL. = 5u,AL. = 100|,@SUM(B1...B20], 
©ERROR) 

| This would check the value of Al before evaluating the 

| formula and would return "ERROR" if the value was out- 

I side the specified range. 

The @NA function is used for template generating. All 

I of the cells which require entered data are first flagged 

| with @NA. Later, after the data has been entered, a sim- 
ple test can be used to check to see if all the cells have 

| been updated. 

The ©ISERROR function tests any type of argument 

I and returns TRUE if the argument is an ERROR condition, 

! false if it is not an ERROR. This is a good way to test 
whether one or more calculations has produced an error: 

@IF1@ISERROR(A3),0,A3*B5) 

The ©ISNA function tests any type of argument and 
returns TRUE if the argument is a NOT AVAILABLE con- 
dition, false if it is available. This is a good way of making 
calculations conditional on the availability of data: 

@IF|@ISNA(A3),@NA,A3»B5) 

Some fairly complicated worksheets can be developed 
using these advanced features. 

Memory Considerations 

The particular spreadsheet that we use is a Flex-based 
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system called Dynacalc. Since that is the system that I am 
most familiar with, I will describe some of the working 
techniques of that system, assuming that all work-sheet 
programs must use an overall somewhat similar system, 
while perhaps differing on some of the fine points. 

This program allows 256 columns and 256 rows, not 
both at once, as it would require 128K bytes just to address 
all of the cells. A cell table is set up with a two-byte ad- 
dress for each cell in use (sometimes not in use, as we shall 
see). The cell table can hold 7680 entries, which means 
that you can address to cell AD256, for a tall worksheet 
with many rows, or to cell IV30, for a long worksheet with 
many columns, or any combination in-between, as long as 
the total figure ROW*COL doesn't exceed 7680. 

Each entry in the cell table requires a two byte address. 
If you GOTO cell AD256 and enter a single character, you 
will have consumed 15360 bytes for cell addresses and one 
byte for the label. The program allocates all cells horizon- 
tally and vertically up to the largest address in use. 
However, it doesn't subtract cells from the table ever. If 
you have overflowed memory and deleted several rows, 
you won't get the full benefit of extra memory until you /S 
SAVE the file and /S LOAD the file back into the system 
after /Clearing the workspace. When the file is read back 
into memory, the unused rows and/or columns will not be 
allocated in the cell table with the resultant saving 
in memory. 

Each value uses 10 bytes of memory, even "0". A cell 
reference in another cell also uses 10 bytes. Placing a Bl in 
cell A2 uses 10 bytes of memory. Labels use only one byte 
per character. Therefore, if you have a numerical sequence 
of labels "1", "2", "3" ..., it is much more memory effi- 
cient to enter them with a leading ' (single quote) to assure 
that the worksheet considers them to be a label. 

A calculation (@SUM(Al...etc.J) starts at 10 bytes and 
consumes additional memory depending upon how long 
the calculation is. Therfore, if you are running out of 
room, it will save space to put an often used calculation in 
one cell, and reference it from other cells. If you are really 
desperate for a few extra bytes, replacing a formula by its 
value will also save space, at the expense of recalculation 
time, if any of the values in the formula change. You 
would have to re-enter the formula to recalculate the 
results (or do it by hand). 

Visual display 

Stop me if you've heard this one before — you really 
need 80 columns to be able to see a reasonable portion of 
the worksheet. Some of the new video boards (for Apple 
anyway) allow a display of 132 columns on-screen. The 
more you can see, the easier and faster it is to work with 
the program. The less scrolling that you have to do, the 
better. I use the GOTO cell command a lot because it is 
much faster than scrolling row by row or column by col- 
umn to the desired site. I often add 20 to the desired cell 
number so that the cell is located in the upper portion of 
the screen when I get there. 

When in the formula dump mode (formulae displayed 
on the screen instead of values), the formula is only 
printed to the width of the column. Often, this is not wide 
enough to see the whole formula on the screen, or printer. 
To enable printing of the whole formula, it is necessary to 
widen the columns containing the formulae somewhat. 
This is only necessary for dumping the formulae to a 
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printer. I often put the printer into compressed mode, to 
get the greatest number of columns on the paper at once. 
With a 15 inch carriage, you can print about 230 char- 
acters across. 

I don't know how I functioned B.S. (that's before 
spreadsheets). I would recommend just about anyone who 



owns a computer to try out MICROCalc (elsewhere in this 
issue), and if you really need the power and memory of a 
full-size spreadsheet, buy one of the many software 
packages available. A list of the spreadsheets available for 
the computers we normally cover is listed at the end of 
this article. Happy calculating! 
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..F25) 157 
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Figure 4. A sampl 


e worksheet with formula dump on. 


An overlay of some of the values is superimposed. 
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@ SANYO MONITOR SALEM 




9" Data Monitor 



80 Columns x 24 lines 
Green text display 
East to read - no eye strain 
Up front brightness control 
High resolution graphics 
Quick start - no preheating 
Regulated power supply 
Attractive metal cabinet 
UL and FCC approved 



• 15 Day Free Trial - 90 Day Immediate Replacement Warranty 



9" Screen -Green Text Display $ 79.00 

12" Screen - Green Text Display (anti-reflective screen) $ 99.00 
12" Screen -Amber Text Display (anti-reflective screen) $119.00 
14" Screen - Color Monitor (national brand) $249.00 

Display Monitors From Sanyo 



With the need for computing power growing every day, Sanyo has 
stepped in to meet the demand with a whole new line of low cost, high 
quality data monitors. Designed for commercial and personal com- 
puter use. All models come with an array of features, including up- 
front brightness and contrast controls. The capacity 5x7 dot 
characters as the input is 24 lines of characters with up to 
80 characters per line. 

Equally important, all are built with Sanyo's commitment 
to technological excellence. In the world of Audio/Video, Sanyo is 
synonymous with reliability and performance. And Sanyo quality is 
reflected in our reputation. Unlike some suppliers, Sanyo designs, 
manufactures and tests virtually all the parts that go into our products, 
from cameras to stereos. That's an assurance not everybody can 
give you! 



& SANYO 



Official Video Products 
of the Los Angeles 1984 Olympics 




099 



• LOWEST PRICES • 15 DAY FREE TRIAL • 90 DAY FREE REPLACEMENT WARRANTY 
• BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL • OVER 500 PROGRAMS • FREE CATALOGS 



t Add $10.00 for shipping, handling and Insurance. Illinois residents 1 
| please add 6% tax. Add $20.00 for CANADA, PUERTO RICO, HAWAII | 
j orders.WE DO NOT EXPORT TO OTHER COUNTRIES. j 

I Enclose Cashiers Check, Money Order or Personal Check. Allow 14 | 
| days for delivery, 2 to 7 days for phone orders, 1 day express mail! | 
i Canada orders must be in U.S. dollars. Visa ■ MasterCard ■ C.O.O. | 



CKinrCDpD|7CC (WE LOVE OUR CUSTOMERS) 

BOX 550, BARRINGTON, ILLINOIS 60010 
Phona 312/382-5244 to order 
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Typing in the Listing 

For all Commodore computers you 
will be typing in all or part of 
listing 1, the version for the Com- 
modore 64. If you are using a PET or a 
VIC- 20, you should skip the lines 
marked. There are different versions of 
these lines in listing 2 (for the VIC-20) 
and listing 3 for the PET. The features 
for the PET and Commodore 64 ver- 
sions are the same: 

^ 20 working lines 

^ 20 corresponding comment fields 

^ support of disk or tape files 

s optional zeroing of user variables 

*s multiple statement support 

^ display of disk file name 

The VIC-20 version has the 
following features 

>^ 10 working lines 
is support of tape files 
is optional zeroing of user 

variables 
** multiple statement support 

Operating Instructions 
Commodore 64 

F7 performs calculation 

F8 zeros user variables 

left arrow enters file mode 

British pound enters comment field 

VIC-20 

The VIC-20 version operates the 
same as the Commodore 64 version, 
except there is no comment field, so 
the British pound key has no function. 

See the comments in the main arti- 
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cle (page 11 J for hints on how to get 
more onto the VIC's smaller screen. 
Predefined constants and functions will 
be particularly useful. 

PET 

Since the PET has no function keys, 
these have been replaced: 
@ performs calculation 

[ zeros user variables 

left arrow enters file mode 
backslash enters comment field 

Using the Internal Tinier 

Commodore computers have a 
special variable TI, which increments 
once every 1/60 second. You can use 
this timer on a Micro Calc screen to 
compare the speed of BASIC functions. 
Following is a screen that demonstrates 
how to do this: 

A = 5.3507 
T = TI 
B=At2 
U = TI-T 
U? 

T = TI 
B=A«A 
U = TI-T 
U? 

You may be surprised by the results of 
this comparison between using ex- 
ponentiation and simple multiplication 
to square a number. Other comparisons 
you may wish to try are: 
using a number vs. a variable in a 
calculation 

MICRO 



the SQR( ) function vs. raising to the 

.5 power 
SHN( ] vs. COS( ) 

How to Use the RND( ) Function 

The RNDj ) function on Com- 
modore computers is actually a pseudo- 
random number generator. This is 
because each successive random 
number depends to some extent on the 
previous number. On VIC, C-64, and 
later PET models, the random number 
generator works as follows: 

A negative argument reseeds the 
random number generator with a 
number calculated from the argument. 
If you use the same argument each 
time, you will generate the same se- 
quence of random numbers. Use a 
negative argument only once to start a 
sequence. Then follow with positive 
arguments. 

A positive argument will generate a 
new number in the sequence, without 
reseeding the generator. 

A zero argument yields a random 
number that is not based on the seed. 

To get the most closely random se- 
quence, you should either use RND(0), 
or start by performing RND( — TI) and 
then follow with RND( ) using a 
positive argument. 

To get random integers the follow- 
ing calculation should be used: 

R=10 

N = HNT(R*RND(0j + l) 

This gives random numbers N from 1 
to R. If you leave the + 1 out, you'll get 
numbers in the range to R - 1 . 
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Comments on Commodore listings 

Starting this month, our Commodore listings are being 
output on the EPSON FX-80 printer. This piinter allows- 
redefining some or all o£ theEpson "ROM .jjharaeigr ^ set- 
After much testing, we arrived at _a ^Vcomprpniiise^set/or 
characters. Since many of the reversed [characters would be 
difficult to read at the size of these listings/ we -thought 
that it would be clearer for the reader typing h&es^proV 
grams into his computer to underlmej-the.freveifsei^ 
characters. The Commodore programs that foIIdwlutiliZe^ 
this new style of listing. If anypnehas any comments, prat 
or con, drop us a line with your viewpoint 



Listing 1 Commodore 64 



10 PRINT"C":P0KE53281,0:P0KE53280,0i 

G0SUB8000 
20 Q*=CHR$(34>:CR*=CHR*(13>: 

DL*=CHR$(20>:RB*= ,, R_i" A 
25 BL** " ' 

DI*="B*iii":CC$="#Ji" 
30 NL*20:DIMC*(NL>,S$(NL> ,S(NL> 
40 LL=l!G0SUB8490:PRINT"SQ"j :GOT0110 
100 LL=1:G0SUB8500:PRINT"SQ";: 

G0SUB9000 
110 S*-S*(LL)i 

IFRIGHT$(S*,1> 

= "?"THENPRINT"R"BL$CR$"::"TAB(10); 

115 PRINTTAB(IO) "ffl"S*DI*; 

120 G0SUB2000 

130 IFT*="H"THEN300 

135 IFT*="l"THENG0SUB9000iLL=l: 

PRINT"SQ";:G0T0110 
140 IFT*«"C"THEN100 
150 IFT*=CR$0RT*="Q"THEN210 
160 IFT$=";;"THEN270 
170 IFT*=DL*THEN240 
180 IFT*=" "THENS$(LL>=S$:GOSUB5000: 

G0SLIB9000:LL = 1:G0T0110 
185 IFT$="£"THENPRINT"R__I":S$(LL>=S*: 

G0T01000 
200 IFLEN(S*X27THENS$=S$ + T$: 

PRINTT*DI*}:G0T0120 
210 S*(LL>=S* 
220 LL-LL+1: IFLL-NL+1 THENLL-1 I 

PRINTRB*; : PR I NT " SQ " TAB ( 1 ) j : 

G0TO110 
230 PRINTRB$CR*TAB(10>}:G0T0110 
240 IFS*=" "THEN120 
250 PRINTRB*"||||"DI$} 
260 S*«LEFT$(S$,LEN(S$>-1>: GOTO 120 
270 S* (LL)=S*:LL=LL-1 



B 



275 



IFLL=0THENLL=NL: 
PRINTRB*"S]]]]]]]]]] 



300 



1000 
1010 
1020 
1030 

1040 
1050 
1060 
1065 

1080 

1100 
1110 



QQQQQ QQQQQQQQQQ QQQQQ " ; : GOTO 1 1 
280 PRINTRB*CR$"::::"TAB<10> ; :GOT01 10 

PRINTRB*:S*(LL)*S*:G0SUB3000; 

G0SUB7000iPRINT , SB"TAB(10) j:LL-li 

G0T0110 

PRINT"SQ||";:LL = 1 

C*«C*(LL>iPRINTC*CC*j 

60SUB4500 

IFT*= H £"THENPRINT"_SQ";: 

C*(LL)=C*tLL=l :G0T01 10 

IFT*=CR*0RT*="Q"THEN1 100 

IFT$="::"THEN1200 

IFT$=DL$THEN1300 

IFASC(T$K320RASC(T*> ^ 

>127THEN1020 C 

IFLEN(C*K9THENC**C$ + T$: 

PRINTT$CC*;:G0T01020 

C$(LL>=C$ 

LL-LL + li IFLL-NL + 1THENLL-1: 

PRINT"_||SQ";:GOT01010 
1120 PRINT"_||"CR*; : 60T01010 
1200 C$(LL)=C* 

1210 LL-LL-1 : IFLL-OTHENLL-NLi PRINT 
"_ 5QQQQQQQ0QQQQQBQQ0QQQ " ; : 

GOT01010 
1220 PRINT"J|"CR$ ,, :::: ,, ;:G0T01010 
1300 IFC$=""THEN1020 
1310 PRINT"_mi"CC$; 

1320 C*-LEFT*(C$,LEN(C$)-1): GOTO 1020 
2000 G0SUB4500 

2010 IFT$="B ,, 0RT$=CR$0RT$="Q"0RT$=":: ,, 
RT$»" "OR 

f$=DL$0RT$="C"0RT$="£"THENRETURN 
2015 IFT*="I"THENRETURN 
2020 IFT$>","ANDT*<": "THEN2070 
2030 IFT$>": M ANDT$<"C"THEN2070 

2040 IFT*> ANDT*<\"THEN2070 

2050 IFT$=" A "THEN2070 

2060 G0T02000 

2070 RETURN 

3000 PRINT"S1CALCULATING" 

3005 F0RJJ=1T0NL: 

IFRIGHT* (S* (JJ> , 1) 17 

="?"THENG0SUB6500:G0T03030 ^ 
3010 IFLEN(S*(JJ)X3THEN3030 
3020 A*=S*(JJ>sG0SUB4000 
3030 NEXT:PRINT"S_ B":RETURN 

4000 I I-Oi KK-I Z ^ 

4010 1 1-1 1 + 1 iKK-KK+1 1 T 

IFII>LEN(A$)THENG0SUB4100:RETURN 
4020 XX=ASC(MID*(A$,II,1>>: 

IFXX*59THENG0SUB4100:G0T04010 
4030 IFXX=33THENG0SUB4100:RETURN 
4040 P0KE51 1+KK, XX: G0T04010 
4100 P0KE511+KK,0:KK»0:SYS828: RETURN 
4500 GETT*:IFT*«""THEN4500 ~ 
4510 RETURN Cl 

5000 PRINT"CRLiOAD OR RSfAVE" 
5010 G0SUB4500 TT 

5020 IFT$="L"THENSA=0:FD*=",S,R": £1 



D 
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5030 

5040 
5045 

5046 

5048 
5050 

5055 
5060 



5070 
5080 

5090 

5100 

5110 



5115 
5120 
5200 
5205 

5210 

5300 
5310 



5320 
5330 
5340 
5900 
5910 

5920 
5930 
5940 
6500 

6510 



6520 
6530 



6540 
6550 
6560 
6570 
6580 
6590 
6600 
6610 



G0T05045 

IFT*s ,, S"THENSA=l:FD*=",S,W": 

G0T05045 

GOT05010 

PR I NT "OR DUSK OR RJIAPE": 

G0SUB4500 

IFNOT((T*="D")OR<T*="T">) 

THEN5045 

INPUT"QQNAME"$NA* 

IFT*="D"THENSA=SA+8:DV=8:NA*= n eO: 

"+NA*+FD*:QPEN15,8,15:G0T05060 

DV=1:NA*«" H 

0PEN1,DV,SA,NA*: 

IFSAAND1THENGOSUB5090:GOSUB5200: 

G0TO5080 

G0SUB511O:GOSUB5300 

CL0SEl:CL0SE15:GQSUB8000i 

G0SUBB510:PRINT"SJTj :RETURN 

A*="":F0RII=1T0NL:S*=S*(II>: 

IFS* = ""THENS* = "V 

A*=A*+S*+CR*: NEXT s PRINT* 1, A*: 

DE=0:G0SUB5900:RETURN 

F0RII=1T0NL:INPUT#1,A*:DE«0: 

G0SUB5900: IFDETHENI I-NL: NEXT: 

RETURN 

IFAI^V'THENA*^"' 

S*(II>=A*:NEXT:RETURN 

IFDETHENRETURN 

A$="":F0RII=1T0NL:S$=C*(II): 

IFS* = ""THENS* = "V 

A*=A*+S*+CR*:NEXT:PRINT#1,A$: 

DE=0:G0SUB5900:RETURN 

IFDETHENRETURN 

F0RII=1T0NL:DE»0:INPUT#1,A$: 

G0SUB5900: IFDETHENI I-NL: NEXT: 

G0T05340 

IFA$»"VTHENA**"" 

C*(II)«A*:NEXT 

RETURN 

IFDVMTHENRETURN 

INPUT#15,D1*,D2*,D3*,D4*: 

IFVAL(D1*)»0THENRETURN 

PRINT"C M D1*" "D2$" "D3*" "D4* 

F0RJJ-1TQ2000:NEXT 

DE=-1:RETURN 

BB-ASC(LEFTt(S*<JJ),l))-64: 

IFBB>13THENBB»BB-13:G0T06530 

QNBBG0SUB6560, 6570, 6580, 6590, 

6600,6610,6620,6630,6640,6650, 

6660,6670,6680 

G0T06540 

0NBBG0SUB6690,6700,6710,6720, 

6730,6740,6750,6760,6770,6780, 

6790,6800,6810 

S(JJ)-XX 

RETURN 

XX=A:RETURN 

XX=B:RETURN 

XX«C:RETURN 

XX*D:RETURN 

XX*E:RETURN 

XX=F:RETURN 
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6620 XX*G:RETURN 
6630 XX-H:RETURN 
6640 XX-IiRETURN 
6650 XX»J:RETURN 
6660 XX*KlRETURN 
6670 XX=L:RETURN 
6680 XX*M:RETURN 
6690 XX»N:RETURN 
6700 XX*0:RETURN 
6710 XX=P:RETURN 
6720 XX*Q|RETURN 
6730 XX=R:RETURN 
6740 XX*S:RETURN 
6750 XX*T:RETURN 
6760 XX»UiRETURN 
6770 XX=V:RETURN 
6780 XX*W:RETURN 
6790 XX=X:RETURN 
6800 XX=Y:RETURN 
6810 XX-ZrRETURN 
7000 PRINT"SQ"5 .-FORI IMTONLt S*»S* ( 1 1 ) : 

SS»S(II) ¥ 

7010 X$«"": f 

IFRIGHT$(S*,l)="?"THENX*=STRf(SS) 

+ I, R H +LEFT*(BL*,24-LEN(STR$(SS))) 
7020 PRINTTAB( 10) SIX*: NEXT: RETURN 
8000 RESTORE: FORI I-0TQ42.-READAA: 

P0KE828+I I, AA: NEXT: RETURN 
8490 F0RII=1T0NL:READS*(II):S(II)=0: 

NEXT 
8495 F0RII«1T0NL:READC*(II):NEXT: T 

GOT08510 ^ 

8500 FORII = lTONL:C*<II)»""sS*UI> = "": 

S < 1 1 ) -0:NEXT 
8510 PRINT"CQ"j:F0RII=lTONL:S*=S*<II): 

C*-C*(II) 
8520 PRINT"|"C*LEFT*(BL*,10-LEN(C*)) 

"i'^l^'LEFTKBLf^a-LENtS*)) 
8530 NEXT: 

PRINT"Ql"MID*<NA$,4>"Hmi|| ": 

RETURN -_ 

9000 PRINT'SICLEAR" iVl 

9010 A»OiB»A:C»A:D»AiE"A:F=A:G*A:H'*A: 

I=A:J*AiK=A:L=AiM=A 
9020 N=A:0=A:P=A:Q*A:R=A:S=A:T«A:U=A: 

V=A:W=A:X=A:Y=A:Z=A 
9030 PRJNT-S IS": RETURN 
9828 DATA165,122,141,112,3,165,123, 

141,113,3,169,0,133,122,169,2, 

133,123,32,121 
9848 DATA1 65, 169, 0,1 33, 122, 16?, 2, 133, 

123,32,165,169,173,112,3,133,122, 

173,113,3 
9868 DATA133,123,96 
/900 DATAA=8000,M=48, 1=1 1.9, 1=1/ 1200, 

D=(1-(1+I) A -M)/I 
9910 DATAP»A/D,P*INT(P*100+.5> 

/100,P?,, 
9915 DATA,,,,,,,,, 
9920 DATAPRINCIPAL, MONTHS, INTEREST, , 

DIVISOR,, .PAYMENT,, 
9925 DATA,,,,,,,,, 
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Comments on VIC and Pet Brings ' \ 

The C-64 listing is :j£e cc^^^||i^O^|c^tM^3^ 
you have a VIC, Expand* |^i 

not complete. For VlC i 

listing from imes':40pQ-7^Sl; !i 'j0ffi^j$£*J6ajg' 

tional changes to the'rtandi^V^^^ 
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Listing 2 VIC-20 

10 PRINT"C":P0KE36879,8:G0SUB8000 
20 CR*=CHR*(13J:DL*-CHR*(20): 

RB*="R_i": 

BL*=" ": 

D I $»"♦!»" 
30 NL=10:DIMS*(NL>,S(NL) . 
40 LL=i:G0SUB8490:G0T0110 A 
100 LL=i:GOSUB8500:GOSUB9000 
110 S*=S$(LL): 

IFRIGH-T*(S*,i> 

= "?"THENPRINT M R"BL*CR*"::"5 
115 PRINTSIDI*} 
120 G0SUB2000 
125 IFT*="I"THENPRINTRB*:G0SUB9000: 

LL=l:PRINT"SQ";:GOT01iO 
130 IFT$="|"THENPRINTRB*:S*(LL)=S*: 

GOSUB3000:GOSUB7000:PRINT"S£Tj: 

LL=1:GQT0110 
140 IFT$= H C"THEN100 
150 IFT$=CR*0RT*""Q"THEN210 
160 IFT* = "::"THEN270 
170 IFT*=DL*THEN240 
180 IFTM" "THENS*(LL)»S*:G0SUB5000: 

GOSUB9000:LL-liGOT0110 
190 S*=S*+T* 
200 IFLEN(S$K19THEN120 
210 S*(LL)=S* 
220 LL=LLM:IFLL=NL + 1THENLL=1: 

PRINTRB*"SQ M ;:G0T0110 
230 PRINTRB*CR*CR*5jG0T0110 
240 IFS*=""THEN120 
250 PRINTRB*"1HI"DI*5 
260 S*=LEFT*(S*,LEN<S$)-1):G0TQ120 
270 S*(LL)=S*:LL«LL-1:IFLL«0THENLL-NL: 

PRINTRB$" SQQQQQQQQQQQQQQQQQQQ ";: 

G0T0110 

280 printrb*cr*":;::::"5:gotoiio 

2000 G0SUB4500 
2005 IFT*="I"THENRETURN 
2010 IFT* = ,, | ,, 0RT$=CR*0RT*= B Q"0RTI="::"0 
RT* = " ,, 0RT*=DL*0RT*="C"THENRETURN 
2020 IFT*>\ "ANDT$<":"THEN2070 
2030 IFT*>": " ANDT*< " C " THEN2070 
2040 IFT*>"'"ANDT$<",' , THEN2070 
2050 IFT*='" S "THEN2070 
2060 GOT02000 
2070 PRINTT*DI*;:RETURN 
3000 F0RJJ=1T0NL: 



D 



IFRI6HT*(S*(JJ> ,1) 

="? B THENGOSUB6500:GOT03030 
3010 IFLEN(S*(JJ)K3THEN3030 
3020 A*«S*(JJ):G0SUB4000 p 
3030 NEXTiRETURN ^ 



5100 XX«FRE(0hA*=A*+S*+CR*:NEXT: 
PRINTtl,A*iRETURN 



K 

0: 



8000 REST0RE:F0RII=0T042:READAA: 

P0KE828+II,AAiNEXT:RETURN 
8490 FORI I -1 T0NL> READS* ( 1 1 ) : S ( 1 1 ) 

NEXT:GOT08510 
8500 F0RII-1T0NL:S*(II)-" H :S<II)=0: L 

NEXT 
8510 PRINT "C"!:F0RII»1T0NL:S$=S$(ID 
8520 PRINT"QB"S* M R"LEFT*(BL*, 

20-LEN(S*) ): NEXT: PRINT "SQ" ;: 

RETURN 
9000 PRINT "S_1CLEARB":A=0:B=A:C=A:D=A: 

E»AiF-A:6»A:H=A:I"A:J=A:K»A:L-A: 

h*«A 
9010 N»A:0=A:P=A:Q=AtR=A:S=A:T=A:U*A: 

V«A:W=A:X=A:Y=A!Z=A: ., 

PRINT"S_ ":RETURN iVl 
9828 DATA 165, 122, 14 1,1 12, 3, 165, 123, 

141,113,3,169,0,133,122,169,2, 

133,123,32,121 
9848 DATA 197, 169, 0,133, 122, 169 ,2, 133, 

123,32,165,201,173,112,3,133,122, 

173,113,3 
9868 DATA133, 123,96 
9900 DATAA=8000,MM8, 1 = 1 1.9, 1 = 1/1200, 

D=(i-(1+I> A -M)/I 
9910 DATAP*A/D,P=INT(P*100+.5) 

/100,P?,, 



Listing 3 Expanded VIC-20 

Change These Lines to get the 
Improved Expanded VIC Version 

130 IFT*="||"THENPRINTRB*sS*(LL>=S*: 
G0SUB3000:G0SUB7000:PRINT"SQ";: 
LL-1 iGOTOl 10 
135 IFT*»"I"THENG0SUB9000»PRINT"SQ";: 

LL=1:G0T0U0 

IFT*=" "THENS*(LL)=S*:G0SUB5000: 

LL=1:G0T0110 

PRINTRB*CR*;:G0T0110 

PRINTRB$CR$"::::";:G0T0110 

IFT*="8"THEN2005 

IFT*="I"THENRETURN 

PRINT"S1CALCULATING":FQRJJ=1T0NL: 



180 

230 

280 

2005 

2015 

3000 



'?"THEN 



IFRIGHT*(S*(JJ> ,1)< 
G0SUB6500:G0T03030 
3030 NEXTtPRINT"S i"! RETURN 

PRINT"CQ"I iF0RII-1T0NLiS*-S*(II> 

PRINT" fl"S*"R"LEFT*(BL*, 
20 -LEN(S*)):NEXT 
PRINT"^1"MID*(NA$,4)"|||||||| fflS_" i 

RETURN 

DA I A ! nini i i 



8510 
8520 

8530 

9920 
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Listing 4 PET 



10 
20 

25 

30 

35 

40 

100 

110 



115 
120 
130 
135 

140 
150 
160 
170 
180 

185 

200 

210 
220 



230 
240 
250 
260 
270 
275 

280 
300 



1000 
1010 
1020 
1030 

1040 
1050 
1060 
1065 

1080 

1100 
1110 



B 



PRINT"C"sGQSUB8000 
Q*=CHR*(34):CR*=CHR*U3): 
DL*=CHR*<20):RB**"R_!" A 
BL* = " 

DI*=" ♦!H";CC*="#U" 

NL=20:DIMC*(NL> ,S* <NL) ,S (NL) 

60T0100 

LL«i:Q0SUB8490iPRINT"SQ 1, j:G0T0ii< 

LL=l:60SUB8500:PRINT"Si";: 

G0SUB9000 

S*=S*(LL): 

IFRIGHT*(S*,1) 

= "?"THENPRINT"R"BL*CR*";:"TAB(10) 

PRINTTAB(IO) S*DI*; 

G0SUB2000 

IFT*="@"THEN300 

IFT* = ,, ["THENGQSUB9000:LL=1: 

PRINT" S_Q";:G0T01 10 

IFT*="C"THEN100 

IFT*=CR$0RT$="GTTHEN210 

IFT*= n ::"THEN270 

IFT*=DL*THEN240 

IFT*=" "THENS*(LL)=S$sG0SUB5000: 

60SUB9000: LL-1 i G0T01 10 

IFT*="£"THENPRINT"R_I":S*<LL)=S*: 

GOT01000 

IFLEN(S*X27THENS*-S**T*i 

PRINTT*DI$;:G0T0120 

S$(LL)=S$ 

LL=LL+1:IFLL=NL+1THENLL=1: 

PRINTRB*; i PRINT "SQ"TAB( 10) j ! 

G0T0110 

PRINTRB*CR*TAB(10> j sGOTOHO 

IFS*=""THEN120 

PRINTRB*"||||"DI$i 

S*=LEFT*(S*,LEN(S*)-1):G0T0120 

S*(LL)=S*:LL=LL-1 

PRINTRB*"S]]]]]]]]]]QQQQQQQQQQ 



QQQQQQQQQQ": 



iGQTOllO 

::;"TAB(10)5:GOT0110 
=S*:G0SUB3000: 



PRINTRBICR*": 

PRINTRB*:S*<LL)> 

G0SUB7000:PRINT"SQ"'TABU0);:LL=1: 

GOT0110 

PRINT"SQir;:LL=l 

C*=C*(LL):PRINTC*CC$; 

GOSUB4500 

IFT*""«"THENPRINT"_SQ"ji 

C*(LL)=C*:LL=l!G0T0110 

IFT*=CR*0RT*="Q"THEN1100 

IFT* = "::"THEN1200 

IFT$=DL*THEN1300 p 

IFASC(T*X320RASC(T*) ^ 

>127THEN1020 

IFLEN(C*X9THENCI»C*+T*: 

PRINTT*CC*;:GOT01020 

C*<LL)=C$ 

LL=LL+1:IFLL=NL+1THENLL=1: 

PRINT" _||SQ^"; : G0T01010 



1120 PRINT"_||"CR*j :G0T01010 



Commodore =. 



1200 
1210 



1220 
1300 
1310 
1320 
2000 
2010 



2015 
2020 
2030 
2040 
2050 
2060 
2070 
3000 
3005 



3010 
3020 
3030 



C*(LL)=C* 

LL=LL-1:IFLL=0THENLL=NL: 

PRINT" _ 5Q0Q0QQQ QQ QQQQ QQ0QQQQ" ; : 

GQT01010 

PRINT"_||"CR*":::: n j:GQTQ1010 

IFC*=""THEN1020 

PRINT "_IIII"CC*; 

C*=LEFT*(C*,LEN(C*>-1):GOT01020 

G0SUB4500 

IFT* = "e"0RT*=CR*0RT*="Q"0RT* = "::"OR 

T*=" "ORT* = DL*ORT*= ,, C"ORT*="£"THE 

NRETURN 

IFT*="["THENRETURN 

IFT*>","ANDT*<":"THEN2070 

IFT*> ,, !"ANDT*<' , C"THEN2070 

I F T * > " ' "ANDT*< " , "THEN2070 

IFT*=" A "THEN2070 

GQTQ2000 

RETURN 

PRINT"SRCALCULATING" 

F0RJJ=1T0NL: 

IFRIGHT*(S*<JJ) , 1) 

-"?"THENGOSUB6500;GQT03030 

IFLEN(S*(JJ)X3THEN3030 

A*-S*(JJ):GOSUB4000 



D 



NEXTsPRINT"S 



i RETURN 



8000 REST0RE:FORII=OT0 

P0KE828+II,AA:NEX 
8490 FORII=lTONLiREADS 

NEXT 
8495 F0RII=1T0NL:READC 

GQT08510 
8500 F0RII=1T0NL:C*<II 

S(II)=0:NEXT 
S510 PRINT"CQ_"$:FORII = 

C*=C*(II) 
8520 PRINTC*LEFT*(BL*, 

S*"R"LEFT*(BL$,28 
8530 NEXT: 

PRINT"Q"MID*(NA*, 

RETURN 
9000 PRINT M SRCLEAR" 
9010 A=0:B*AiC«=A:D=A:E 

I=»A:J=A:K=A:L=A:M 
9020 N»AsO»A:P«A:Q=A:R 

V=A:W=AsX=AsY=A:Z 
9030 PRINT"S_ S_":RE 
9828 DATA165, 119, 141,1 

141,113,3,169,0,1 

133,120,32,251 
9848 DATA180, 169,0, 133 

120,32,48,185,173 

173,113,3 
9868 DATA133, 120,96 
9900 DATAA=8000,M=4B,I 

D=(1-<1+I) A -M)/I 
9910 DATAP=A/D,P=INT(P 

/100,P?,, 
9915 DATA,,,,,,,,, 
9920 DATAPRINCIPAL,MON 
. DIVISOR,,, PAYMENT 
9925 DATA,,,,,,,,, 



42:READAA: V 
T:RETURN IX 

*<II):S(II)=0: 

*(II)iNEXT> £ 

)="":S*<II)="": 

1T0NL:S*=S*(I I) : 

lO-LEN(CD) 
-LEN(St)) fJt 



4)"llllllll 



H • 



A:F=A:G=AiH=A: 
=A 

aAsS»A:T=A:U»A: 
=A 

TURN 

12,3,165,120, 
33,119,169,2, 

,119,169,2,133, 
,112,3,133,119, 



=11.9,1=1/1200, 
#100+. 5) 

THS, INTEREST,, 
» i 



JMCftO 



No. 67 - December 1983 



MICRO 



27 



PUT PRICES IN CHECK 



CARTRIDGE RIBBONS FOR 



APPLE PRINTERS 

NEC 8023 A 

C. ITOH PROWRITER 

$ 9. 95 EA $ 107. 46 oo 



INNOVATIVE 
CONCEPTS 

FLIP'N'FILE 

DISC STORAGE BOX 
HOLDS UP TO 60 DISKETTES 



CARTRIDGE RIBBONS FOR 

EPSON 
IMX-80 MX-1001 



'86. 



EA 



29. 



EA 



S 11. 95 E 

$ 129. 06 c 



RIBBONS FOR 



5V4" 



8 



$ 24. 95 E4 $ 29. ! 



DUAL SPOOL RIBBONS FOP 

OKI DATA 
PRINTERS 

80, 82, 83 EA D0Z 
92,93 s 2. 77 s 29. ! 



ANTI-STATIC 
SPRAY 

FULL QUART SIZE 
WITH DISPENSER 



IDS PRINTERS 

EA DOZ 

440 s 2. 77 s 29. 92 

PAPER TIGER S 6. 95 S 75. 06 
MICROPRISM S 7." S 86. 29 

PRISM 10. 95 118. 25 



MEMOREX 
DISKETTES 

5'. SINGLE SIDE - DUAL DENSITY 

$OA 99 

^m "■ io pa 



PACK 



CARTRIDGE RIBBONS FOR 



COMREX 
DAISYWRITER 2000 



*6 



95 



QT. 



MAXELL 
DISKETTES 

5%" SINGLE SIDE 

DUAL DENSITY 

MD-1 



DISKETTE 

STORAGE 

BOXES 

5V4" -BLUE OR BEIGE 

$0 B 49 



EA. 



COLOR- 
CODER 

LIBRARY CASE SET 

CONTAINS 5 BRIGHT COLORS 



1 GALLON REFILL $ 19. M 



LABEL 
SPECIAL 

$0 99 

tea /k 

(5K MIN) 

1 ACROSS 3 x 15/16 CONTINUOUS LABELS 




TOLL FREE 800-343-7706 
IN MASS 617-963-7694 

PHONES OPEN 9AM-7PM EASTERN TIME 
28 



MOST RIBBONS AVAILABLE IN COLORS TOO! 

CALL OR WRITE FOR OUR SUPPLIES CATALOGUE 

ON ORDERS UNDER $ 14.°° PLEASE ADD «3.°° FOR SHIPPING 

MINIMUM RIBBON ORDER '30. 00 OR 1 DOZEN 

Oieck-Mate— 

51 DIAUTO DR ^W P.O. BOX 103 




RANDOLPH. MA 02368 
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By Ian AcIam 



The Commodore 64 does an accept- 
able job of keeping time with its 
TI$ clock. All you have to do is 
set TI$ to the current time, and it will 
run as long as the computer remains 
on. You can use the C-64 for just about 
anything else and just type ?TI$ when 
you want the time. 

However, there are several limita- 
tions on use of the built-in time func- 
tion. First of all, it is not very con- 
venient to use while a program is run- 
ning. You have to STOP the program, 
carefully ask the time (no syntax error, 
or else...), then CONTinue with the 
program. Second, the TI$ function is 
not very accurate. A recent sample of a 
half dozen computers gave a typical 
error of 2.2%. That's over one minute 
per hour, or 32 minutes per day! Good 
enough to keep track of whether it's 
light or dark outside, perhaps, but not 
adequate to launch the space shuttle. 
The TI$ clock also stops, running when 
a file or program is being loaded or 
saved. And third, of course, it's only 
there when you ask, and we all know 
how easy that is to forget! 

But despair not; a ready solution is 
at hand. In fact, your 64 contains not 
one, but three clocks (count 'em!]. The 
additional timepieces are contained in 
the two 6526 Complex Interface 
Adapter chips (CIA's), and they offer 
some considerable advantages. These 
two chips are provided by Commodore 
for the purpose of carrying out a 
multitude of housekeeping functions, 
such as generating interrupts, reading 
the keyboard and joysticks, external 
communications, etc. The two clocks 
are a bonus. And very accurate, too ... 
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This article shows how to use the extremely accurate 
time-of-day clock built into the Commodore 64's CIA 
chip. The demonstration includes an alarm clock that 
runs independently of most other programs and I/O 
function. 



they include tenths of seconds, and 
appear to be that accurate over the 
course of a day. They also keep running 
during input/output operations, in fact 
anytime the computer is turned on. 
With two clocks, you could keep track 
of the time in Mandalay, if you want, 
and there are even programmable 
alarms so you won't miss dinner 
there either! 

Using the Program 

Type in the listing as shown; type 
the DATA statements carefully, since 
they contain the machine language pro- 
gram. Any error in that portion can 
crash the computer. 

When you've finished typing, SAVE 
a copy of the program before you run it. 
This will avoid having to retype the 
whole thing in the event of a fatal 
typographical error. Then go ahead and 
RUN it. First, the program will READ 
the machine language DATA and store 
it in memory. The variable CH is a 
checksum to guard against errors in the 
data. If the program stops and indicates 
a data error, then double-check 
everything. Assuming that is ok, the 
program will then ask you to enter the 
correct time. Give the AM/PM and the 
hour; when asked for the minute, 
check an accurate time source, and 
type in the number of the next minute 
[e.g. if it's 8:30, type in 31), then wait 
until that minute arrives to press 
"RETURN". Pressing return starts 
the clock. 

After the instructions, you will be 
prompted for the time you want the 
alarm to be set to. When the alarm time 

MICRO 



matches the clock time, it will be 
announced by: 

-the border of the screen flashing; 
-a buzzing sound; and, 
-the word "ALARM" flashing above 
the time. 

If that isn't enough to attract your 
attention, then perhaps you're in a 
time warp! In any event, you can turn 
off this display simple by pressing the 
"Fl" key. 

When properly loaded, the program 
will run just like clockwork. It will 
supply you with the instructions, but 
for your reference I'll repeat them here: 





(equals) to 15; 


SYS 832: 


recall time display to 




screen; 


SYS 994: 


turn off time display (still 




runs internally); 


POKE 982,n: 


change color, where n 




(equals) to 1 5; 


GOSUB9140 


set or reset alarm time; 


F1: 


stop alarm display. 



As before, the operating part of the pro- 
gram is in subroutine form, so you can 
include it in other programs as you 
wish. The commands listed above can 
also be used within a program, once the 
time is correctly set. To stop the alarm 
display under program control, just use 
POKE 197,4. 

If the Fl key is not convenient for 
stopping the alarm, for example if your 
program uses it for some other purpose, 
then it can be changed: it's the value 
that appears in memory location 197 
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when the key is pressed. 

The main program is stored in the 
cassette buffer, while the alarm portion 
occupies an unused area of page 2 
memory as well. Thus, they may con- 
flict with other programs that use these 
areas for machine language or sprites. 
The program would also be destroyed 
by any tape load or save activities. If 
these cautions create a problem, then 
the routine should be relocated to a dif- 
ferent area of memory. This is a 
straightforward task, but does require a 
basic knowledge of machine language. 
For those who want to study the 
machine code, an assembly listing is 
provided [listing 2). 

Technical Details 

The CIA clocks are a little more dif- 
ficult to access than TI$; with this pro- 
gram, however, it's as easy as apple pie. 
The time is contained in four registers 
for hours, minutes, seconds, and tenths 
[locations 56331 to 56328 for chip A, 
and 56587 to 56584 for chip B). To 
avoid having the time flip over while 
reading the clock, all four registers are 
frozen whenever the hours register is 
read or written to. The clocks continue 
to keep good time while this is in pro- 
gress. The last step in any access 
should be a read or write to the tenths- 
of-seconds register, to "unfreeze" 
the clock. 

Each register stores its data in 
binary-coded decimal, or BCD, format. 
The hours register also contains an 
AM/PM indicator in bit 7. This would 
be an ideal format if the chip were run- 
ning a display such as a digital alarm 
clock directly. For use in the computer, 
however, it does require some coding 
and decoding. This is a little awkward 
but not too difficult in BASIC, and even 
simpler in machine language. Once set, 
the clocks will automatically keep 
track of the time and AM/PM for as 
long as the machine is on, or until they 
are reset. 

So how do we set the alarm? By ex- 
actly the same process as setting the 
time... by poking values into the same 
four registers! Only difference is, we 
first have to set bit 7 of the control 
register to a one. This signals to the 
chip that we want to set the alarm time 
instead of the clock time. The multiple 
use of these registers does keep things 
simple-honest! Lines 9160 and 9170 of 
the program take care of the BCD con- 
version. Line 9175 sets the control 
register to its normal value. 

30 



Once the alarm has been set, it can- 
not be read. When the prescribed time 
is reached, this is signalled by setting 
bit 2 of the interrupt register. The pro- 
gram must recognize this, and proceed 



to alarm the operator in whatever way 
is specified. Don't worry, it won't bite. 
All of this may sound complicated, but 
the program takes care of the details. 
These are the main registers involved: 



Function 


Chip A 


Chip B 


Hours*. AM/PM 
Minutes 
Seconds 
Tenths 


56331 ($DCQB) 
56330 ISDCOA) 
56329 ($DC09). 
56328 ($DC08) 


56587 |$DD0B) 
56586 ($DD0A) 
56585 f$DD09) 
56584 ($DD08) 


Interrupt 


56333 |$DC0D) 


56589 ($DD0D( 


Alarm Control 


56336 ($DC0F( 


56591 ($DD0F) 



A Quirk In The Chip 



Help,- there's a quirk on the loose! 

In programming the alarm, I came 
upon a most unusual feature. I got the 
alarm all set up, and (after a lot of hit- 
and-miss changes) finally got it to work 
well. Eureka. The only trouble was, the 
alarm would mysteriously sound for a 
second time, exactly one minute later. 
Really had me stumped for a while. 
After a sleepless night, however, it 
came to me what the problem was. Say 
the alarm is set for 8:30:00.0, and 
sounds at that time. One minute later, 
at precisely 8:30:59.9, the tenths-of-a- 
second register rolls over, giving an in- 
stantaneous time reading of 8:31:00.0, 
but it is apparently sufficient to trigger 



a second alarm (sometimes) . 

There are three or four ways to pro- 
gram around this quirk, once you know 
it exists. I decided the easiest way to 
solve the problem would be to POKE a 
1 into the tenths register (i.e. setting 
the alarm time in our example to 
8:30:00.1). This removes the alarm 
from the vicinity of the rollover, and 
seems to have banished the quirk to 
another world. If it should ever return 
to haunt you, please let me know; 
maybe we'll try an exorcist. JMCftO 

You may contact Ian Adam at 3706 West 
20th Ave., Vancouver BC, V6S1E8 
Canada. 



Listing 1 







REM ** TIME IS OF THE ESSENCE ## 


1 


REM 


2 


REM »* CLOCK DISPLAY WITH ALARM ** 


3 


REM FOR COMMODORE 64 


4 


REM 


5 


REM BY IAN ADAM 


b 


REM VANCOUVER, B. C. 


7 


REM 


10 


60SUB9000 


20 


F'RINT"CfiG** TIME WAITS FOR NO MAN 




**Q 


30 


PRI"NT"CL0CK INSTRUCTIONS: Q" 


40 


PRINT"SYS 832: TURN 0N~DISPLAY 


50 


PRINT"SYS 994: TURN OFF DISPLAY 


60 


PRINT"P0KE 982, N: CHANGE COLOUR 
PRINT'GOSUB 9140: RESET ALARM 


70 


80 


PRINT"F1: TURN OFF ALARM 


90 


G0SUB9140:END: 




REM SET OR RESET ALARM 


9990 


REM BALANCE OF PROGRAM IS 




SUBROUTINES THAT CAN BE USED 




INDEPENDENTLY 


9000 


CH=0:FORI=832TQ1008 


9010 


READAjPOKEI,A:CH-CH+A:NEXT 




(continued) 
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_— oo 








0010 


; CIA ALARM 


CLOCK 


Listing 


1 (continued) 


Listing 2 




0020 
0030 


; BY IAN ADAM 

I 










0035 


ALARM 


.DE 


$02A7 


9015 


F0RI=679T0744:READA:P0KEI,A: 






0040 


CINV 


. DE 


$0314 




CH=CH+A:NEXT 


{HARDWARE 1 


NTERRUP1 








9020 


IFCH-23614THENPRINT"QWH0A. . .DATA 






0050 


MESSGE 


.DE 


$0418 




ERROR"iSTQP:NOTE CHECKSUM 


; ALARM 


DISPLAYED 


HERE 






9030 


INPUT"CQQQQQ IS IT AM OR PM":A$: 






0055 


SCRMSG 


.DE 


MESSGE+9 




INPUT"Q~fffnrTHE HOUR"iH 
PRINT"Gn2 ENTER THE MINUTE WHEN 






0060 


DISP 


.DE 


$0441 


9040 


{BEGINNING 


OF TIME 


DISPLAY 








YOU WISTT TO START 






0065 


BORDER 


.DE 


$D020 


9050 


PRINT" PRESS 'RETURN' TO START 






0070 


SIDVOL 


.DE 


$D418 




THE CLQCK:Q 






0080 


DSPCLR 


.DE 


$D841 


9060 


IFH>12THENA~$*"P":H=H-12:GOT09060 


5 COLOR MEMORY 








9070 


IFH>9THENH=H+6 : 






0090 


;CIA #1 


REGISTERS 




REM CONVERSION TO BCD 


; FOR TIME 


DISPLAY 








9080 


IFLEFT*(A*, 1 )="P"THENH=H+128 






0100 


TENTHS 


.DE 


$DC08 


9090 


C=56328:P0KEC+3,H:P0KEC+1,0 






0110 


SECS 


.DE 


TENTHS+1 


9100 


INPUTM:M=M+INT(M/10>*6 






0115 


MINS 


.DE 


TENTHS+2 


9110 


P0KEC+2.M:P0KEC,0:SYS832: 
PRINT"QQ IF NOT OK, 






0120 


HOURS 


.DE 


TENTHS+3 








0125 


CIAINT 


.DE 


TENTHS+5 




PRESS KRi KEY 


; CIA INTERRUPT 








9120 


F0RI=1T01000: 






0130 


ALCTRL 


.DE 


TENTHS+7 




IFPEEKU98)THENP0KE198,0sSYS994j 






0135 


INTPTR 


.DE 


$EA31 




G0T09030 


{NORMAL 


CONTENTS 








9130 


NEXTrRETURN 






0140 


t 






9140 


PRINT"QWHAT TIME WOULD YOU LIKE 
THE ALRPM7Q" 






0150 
0160 


■ 
> 


,6A 


$0340 


9145 


INPUT"AM OR" PM":A$: 


0340-78 




0170 




SEI 






A$=LEFT$(A$,1> 


0341 -AD 


14 


03 0180 




LDA 


CINV 


9150 


INPUT"THE HOUR":H 


0344-A2 


59 


0190 




LDX 


#L, START 


9155 


IFH>12THENA$ = "P r, :H=H-12:G0T09155 


0346-EA 




0200 




NOP 




9160 


H=H-6#(H>9)-128*(A* = ,, P"): 


0347-EA 




0210 




NOP 






REM CONVERT TO BCD AND ADD AM/PM 


0348-EA 




0220 




NOP 






INDICATOR 


0349-8E 


14 


03 0230 




STX 


CINV 


9165 


INPUT"THE MINUTE":M 


034C-AD 


15 


03 0240 




LDA 


CINV+1 


9170 


M=M+INT(M/10)»6 


034F-A2 


03 


0250 




LDX 


#H, START 


9175 


C=56328:P0KEC+7,136:P0KEC+3,H: 


0351 -EA 




0260 




NOP 






P0KEC+2,M:POKEC,l:POKEC+7,8 : 
REM ALARM 


0352-EA 




0270 




NOP 






0353-EA 




0280 




NOP 




9180 


P0KE54273,99:P0KE54278,240: 


0354-8E 
0357-58 


15 


03 0290 
0300 




STX 
CLI 


CINV+1 




P0KE54276,21 


0358-60 




0310 




RTS 




9185 


P0KE54287.2:POKE5429O,17: 
REM SOUND 






0320 


■ 








0359-AD 


OB 


DC 0330 


START 


LDA 


HOURS 


9190 


RETURN 


035C-AA 




0340 




TAX 




9200 


DATA 120,173,20,3,162,89,234,234, 

234,142,20,3'l7.3,21,3 ' 

DATA 162,3,234.234,234,142,21,3, 

88,96,173,11,220.170,41 ' 

DATA 15,24,105,48,141,67,4,138, 

16,4, 162. 16, 16*2,162,1,142 

DATA 77,4,162,32,41,16,240,2,162, 

49, 142,66,4, 1)3, lo, $20 

DATA 170.41.15.105,48,141,70,4, 

138.74.74,74,74,241105.4b 

DATA 141,69.4,173,9.226,170,41, 

15, 105. 48, l4l, 73, 4, 138,74 

DATA 74,74,74,24,105,48,141,72,4, 

173,8,220, 105 48 141 75 

DATA 4,169,32,141,65,4,141,76,4, 

141,79,4,162,14,157,24 ' ' ' 

DATA 4,202,208,250,169,58,141,68, 

4,141,71,4,169,46,141,74 

DATA 4,169,13,141,78,4.169,1,162, 

13, 157, 65, 2 16, 202, 208, 250, 76, 167 , 


035D-29 


OF 


0350 




AND 


#fOF 




035F-18 




0360 




CLC 




9210 


0360-69 


30 


0370 




ADC 


#*30 




0362-8D 


43 


04 0380 




STA 


DISP+2 


9220 


0365-8A 




0390 




TXA 






0366-10 


04 


0400 




BPL 


LBLA 


9230 


0368-A2 


10 


0410 




LDX 


#$10 




036A-10 


02 


0420 




BPL 


LBLB 


9240 


036C-A2 


01 


0430 


LBLA 


LDX 


#$01 




036E-8E 


4D 


04 0440 


LBLB 


STX 


DISP+12 


9250 


0371-A2 


20 


0450 




LDX 


#$20 




0373-29 


10 


0460 




AND 


#$10 


9260 


0375-F0 


02 


0470 




BEQ 


LBLC 




0377-A2 


31 


0480 




LDX 


#$31 


9270 


0379-8E 


42 


04 0490 


LBLC 


STX 


DISP+1 




037C-AD 


OA 


DC 0500 




LDA 


MINS 


7280 


037F-AA 




0510 




TAX 






0380-29 


OF 


0520 




AND 


#$0F 


9290 


0382-69 


30 


0530 




ADC 


#$30 




0384-8D 


46 


04 0540 




STA 


DISP+5 




2 


0387-8A 




0550 




TXA 




9300 


DATA 120,169,49,234,141,20,3,169, 

234. 234, 141, $1,3, 88 96 

DATA 173, 13,220,41 .4. 240,3, 141 . 

227,2,173,227,2,240,42,173,162 
DATA 106,106,106,41,12 141 32, 
208,41,4,141,24,212,240,11 162,5, 


0388-4A 




0560 




LSR 


A 




0389-4A 




0570 




LSR 


A 


9310 


038A-4A 




0580 




LSR 


A 




038B-4A 




0590 




LSR 


A 


9320 


038C-18 




0600 




CLC 






038D-69 


30 


0610 




ADC 


#$30 




189 


038F-8D 


45 


04 0620 




STA 


DISP+4 


9330 


DATA 227,2,157,33,4,202.208,247, 
173,197,0,201,4,208,6,142,227,2 
DATA 142,24 ,212,76, 49,234,0, 1,12, 


0392-AD 


09 


DC 0630 




LDA 


SECS 




0395-AA 




0640 




TAX 




9340 


0396-29 


OF 


0650 




AND 


#$0F 




1,18,13 ' ' ' ' ' 


0398-69 


30 


0660 




ADC 


#$30 












(Continued 


on next page) 
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Telecommuni cations 



with a difference! 

Unexcelled communications power and 
compatibility, especially for professionals and 
serious computer users. Look us over; SuperTerm 
isn't just "another" terminal program. Like our 
famous Terminal-40, it's the one others will be 
judged by. 

• EMULATION— Most popular terminal protocols: 
cursor addressing, clear, home, etc. 

• EDITING— Full-screen editing of Receive Buffer 

• UP/DOWNLOAD FORMATS - CBM, Xon-Xoff, 
ACK-NAK, CompuServe, etc. 

• FLEXIBILITY— Select baud, duplex, parity, stopbits, 
etc. Even work off-line, then upload to system! 

• DISPLAY MODES-40 column; 80/132 with 
side-scrolling 

• FUNCTION KEYS -8 standard, 52 user-defined 

• BUFFERS— Receive, Transmit, Program, and Screen 

• PRINTING— Continuous printing with Smart ASCII 
interface and parallel printer; buffered printing 
otherwise 

• DISK SUPPORT— Directory, Copy, Rename, Scratch 

Program options are selected by menus and function 
keys. For maximum convenience, an EXEC file sets all 
options on start-up. SuperTerm may be backed-up for 
safety. Software on disk with special cartridge module. 

Write for the full story on SuperTerm; or, if you 
already want that difference, order today! 

Requires: Commodore 64 or VIC-20, disk drive or Datasette, and 
compatible modem. VIC version require!, I6K memory expansion. Please 
specify VIC or 64 when ordering. 



Smart ASCii Pius ... $59 



95 



1 The only interface which supports streaming —sending 
I characters simultaneously to the screen and printer — with 
I SuperTerm. 

| Also great for use with your own programs or most 

I application programs, i.e., word processors. Print modes: 

I CBM Graphics, TRANSLATE, DaisyTRANSLATE, CBM/True 

% ASCII, and PIPELINE. 

| Complete with printer cable and manual. On disk or cassette. 
I VIC 20 and Commodore 64 are trademarks of Commodore Electronics, Ltd. 

(816) 333-7200 jg/JMR 

, 31 1 WEST 72nd ST. « KANSAS CtTY « MO « 64 11 4 j 



— Comn 


nodoi 

continuec 








Listina 2 1 


) 






039A-BD 


49 


04 


0670 


STA 


DISP+8 


039D-BA 






0680 


TXA 




039E-4A 






0690 


LSR 


A 


039F-4A 






0700 


LSR 


A 


03A0-4A 






0710 


LSR 


A 


03A1-4A 






0720 


LSR 


A 


03A2-18 






0730 


CLC 




03A3-69 


30 




0740 


ADC 


#$30 


03A5-8D 


48 


04 


0750 


STA 


DISP+7 


03A8-AD 


08 


DC 


0760 


LDA 


TENTHS 


03AB-69 


30 




0770 


ADC 


#$30 


03AD-8D 


4B 


04 


0780 


STA 


DISP+10 


03B0-A9 


20 




0790 


LDA 


#$20 


03B2-8D 


41 


04 


0800 


STA 


DISP 


03B5-8D 


4C 


04 


0810 


STA 


DISP+11 


03B8-8D 


4F 


04 


0820 


STA 


DISP+14 


03BB-A2 


0E 




0830 


LDX 


#*0E 


03BD-9D 


18 


04 


0840 LBLD STA 


MESSGE,X 


03C0-CA 






0850 


DEX 




03C1-D0 


FA 




0S60 


BNE 


LBLD 


03C3-A9 


3A 




0870 


LDA 


#*3A 


03C5-8D 


44 


04 


0880 


STA 


DISP+3 


03CB-8D 


47 


04 


0890 


STA 


DISP+6 


03CB-A9 


2E 




0900 


LDA 


«»2E 


03CD-8D 


4A 


04 


0910 


STA 


DISP+9 


03D0-A9 


0D 




0920 


LDA 


#$0D 


03D2-8D 


4E 


04 


0930 


STA 


DISP+13 


03D5-A9 


01 




0940 


LDA 


#*01 


03D7-A2 


0D 




0950 


LDX 


#*0D 


03D9-9D 


41 


D8 


0960 I 


.BLE STA 


DSPCLR,X 


03DC-CA 






0970 


DEX 




03DD-DO 


FA 




0980 


BNE 


LBLE 


03DF-4C 


A7 


02 


0990 


JMP 


ALARM 


03E2-78 






1000 


SEI 




03E3-A9 


31 




1010 


LDA 


#L,INTPTR 


03E5-EA 






1020 


NOP 




03E6-8D 


14 


03 


1030 


STA 


CINV 


03E9-A9 


EA 




1040 


LDA 


#H,INTPTR 


03EB-EA 






1050 


NOP 




03EC-8D 


15 


03 


1060 


STA 


CINV+1 


03EF-58 






1070 


CLI 




03F0-60 






1080 
1090 


RTS 










1100 


UNUSED P. 2 AREA 








1110 












1120 


.BA 


$02A7 








1130 






02A7-AD 


0D 


DC 


1140 


LDA 


CIAINT 


02AA-29 


04 




1150 


AND 


#*04 


02AC-FO 


03 




1160 


BEQ 


BEGIN 


02AE-8D 


E3 


02 


1170 


STA 


FLAG 


02B1-AD 


E3 


02 


11 80 1 


3EGIN LDA 


FLAG 


02B4-F0 


2A 




1190 


BEQ 


RETURN 


0266-AD 


A2 


00 


1200 


LDA 


*O0A2 


02B9-6A 






1210 


R0R 


A 


02BA-6A 






1220 


ROR 


A 


02BB-6A 






1230 


R0R 


A 


02BC-29 


OC 




1240 


AND 


#$0C 


02BE-8D 


20 


DO 


1250 


STA 


BORDER 


02C1-29 


04 




1260 


AND 


#$04 


02C3-8D 


18 


D4 


1270 


STA 


SIDVOL 


02C6-FO 


0B 




1280 


BEQ 


LBL 


02C8-A2 


05 




1290 


LDX 


#*05 


02CA-BD 


E3 


02 


1300 1 


.OOP LDA 


FLAG.X 
SCRMSG,X 


02CD-9D 


21 


04 


1310 


STA 


02D0-CA 






1320 


DEX 




02D1-D0 


F7 




1330 


BNE 


LOOP 


02D3-AD 


C5 


00 


1340 1 


.BL LDA 


*O0C5 


02D6-C9 


04 




1350 


CMP 


#$04 


02D8-D0 


06 




1360 


BNE 


RETURN 


02DA-8E 


E3 


02 


1370 


STX 


FLAG 


02DD-8E 


18 


D4 


1380 


STX 


SIDVOL 


02E0-4C 


31 


EA 


1390 


RETURN JMP 


INTPTR 


02E3-00 






1400 


r LAG .BYO 


02E4-41 


4C 


41 


1410 


.BY 


'ALARM' 


02E7-52 


4D 




1420 


.EN 


AMCRO 
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Commodore Compass 




by Loren Wright 



Low-cost Word Processing for C-64 

Commodore has been bringing 
out a great deal of software for 
the Commodore 64 lately. Most 
of it is very good and most of it is priced 
less than competing products. Easy 
Script is no exception. 

It is very much like Steve Punter's 
Word Pro 3 Plus/ 64 (sold by Profes- 
sional Software and Pro-Line and 
reviewed earlier in this column). In 
fact, the overall design and command 
syntax are nearly identical. There are 
several differences, and most of them 
work in favor of Easy Script. 

Like Word Pro 3 Plus/ 64 (which I 
hereafter refer to as simply Word Pro), 
Easy Script uses a wordstream format, 
which results in words being split 
across the end of a screen line. Screens 
of the two word processors look very 
similar. Easy Script's is a bit easier to 
follow because the cursor flashes and 
because line endings and format 
chracters appear in reverse field. Easy 
Script allows you to set a working 
screen width of up to 80 characters. 
This makes working with tabular and 
indented material much easier, but typ- 
ing on this wider screen is not very con- 
venient due to the necessary panning 
across the 40-column screen. There is 
also an output-to-video function (lack- 
ing in the C-64 version of Word Pro), 
which allows you to see what your 
document looks like before you print it 
out. While viewing the video output 
you can select any page or pages for 
printing out. With Word Pro you get all 
or nothing. 

Easy Script can be used with either 
cassette or disk, but not both at the 
same time. Editing is more convenient, 
particularly since there are true block- 
delete, -transfer, and -copy commands. 
Word Pro only allows these operations 
on whole screen lines. There is also a 
major difference in the files produced 
by the two word processors. Word Pro 
produces program files, while Easy 
Script produces sequential files. 
Sequential files are more accessible 



from other programs, including your 
own BASIC programs. Easy Script 
allows considerably more text in 
memory at one time — 764 lines vs. 
329. It is also possible to save only part 
of the text in memory to a disk file. 

Easy Script lacks the "extra text" 
feature of Word Pro, but at least one use 
of it is taken care of: Easy Script makes 
it possible to get a disk directory 
without wiping out text in memory. 
Another use of extra text is not 
duplicated. Easy Script has no "append 
characters" or "append text" features. 
With Word Pro it is possible to 
label a number of frequently used 
phrases or text segments in extra text 
and call them into main text with a few 
keystrokes. 

Word Pro was once the best word 
processor available for Commodore 
machines. It can no longer claim that 
honor. As each new Commodore 
machine has come out, a new version 
of Word Pro has become available, but 
instead of taking advantage of the 
features of the machine, only enough 
changes to get it running have been 
made. Easy Script is a better word pro- 
cessor, and, according to Jim Strasma 
and a number of others, Paper Clip 
from Batteries Included is also better. 
Easy Script is especially attractive 
because of its price. Commodore won't 
quote a suggested retail price, but $50 
is a good guess. 

The Complete Personal 
Accountant 

Since I am now completely self- 
employed, I suddenly need to keep 
much better financial records. I was in- 
trigued by Jim Strasma' s number one 
rating for Complete Personal Accoun- 
tant in last month's Commodore 
Buyer's Guide, so I obtained a copy 
with the idea of reviewing it here. I 
now have a good start on getting my 
finances in order! 

Formerly called The Color Accoun- 
tant, Complete Personal Accountant is 
actually a set of programs that work 



together in various ways. The heart of 
the package is the Chart of Accounts, 
which operates with the Checkbook 
Maintenance, Financial Statements, 
and Budget Analysis programs. Setting 
up is a little involved, but extra time 
spent in set-up is rewarded in time 
saved in maintaining your records. The 
first order of business is to set up your 
chart of accounts. There is a standard 
chart provided, but you will surely 
want to make changes, additions, and 
deletions. Accounts in the chart are 
divided into assets, income, liabilities, 
equity, and expense accounts. There is 
room for 99 different accounts, with up 
to 9 subcategories in each, up to a total 
of 300 subcategories. Next, you go 
through your checkbook, check by 
check and deposit by deposit. As you 
enter each item, you decide what 
account to credit or debit. Each check 
and deposit is automatically entered on 
the disk file. When you're done, not 
only have you balanced your 
checkbook, but you have also recorded 
your expenditures in the different ac- 
counts. There is provision for more 
than one checking account, although 
these files must be stored on separate 
disks, and you may indicate some 
payments to take place automatically. 
There is a great deal of support for error 
checking and for making backup copies 
of your disks. 

When you have your checkbook 
balanced, you can then proceed to 
generating financial statements or to 
budget analysis. Other capabilities of 
these programs include generating 
checks from your computer, graphing 
results in color on the screen or on a 
VIC printer, and checkbook search. 
The other programs, which don't work 
with the ones mentioned above, in- 
clude a Payments Calendar, Appoint- 
ments Calendar, and Mailing List. 

I had a little trouble figuring out 
when a debit subtracts from and when 
it adds to an account. An appendix in 
the excellent manual explains these 
terms — I wish I had read it before I 
started entering checks! Complete Per- 
sonal Accountant is available from Pro- 
grammer's Institute for $79.95. The 
cassette version is $74.95, and the 
package has been divided into three 
parts for about $30 each. 

Getting Started in Machine 
Language 

There are several things you can do 
with your VIC or C-64 in machine 
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language that you can't do in BASIC, 
and there are many things that can be 
done faster. For instance, using BASIC 
to clear the high resolution screen is a 
very slow process that takes a traction 
of a second in machine language, and 
raster interrupt programming is vir- 
tually impossible in BASIC. As the 
computer comes, though, there is little 
that you can do beyond simple pro- 
grams that you POKE in from DATA 
statements. Larger and more expensive 
computers have built-in machine 
language monitors, while less expen- 
sive, smaller computers, including 
Atari, Color Computer, VIC, and Com- 
modore 64 do not. A monitor is a pro- 
gram that lets you look at and modify 
the contents of memory locations and 
processor registers, and load and save 
ranges of memory. An extended 
monitor is one that adds extra func- 
tions, such as a disassembler, a mini- 
assembler, and trace and break-point 
capability. Monitors are available on 
cartridge, disk, or cassette. Some of the 
better known monitors for Commodore 
machines are VICMON, 64MON, 
HESMON, SUPERMON, MICRO- 
MON, and TINYMON. There is also a 



minimal monitor included with 
Richvale Telecommunication's V-Link 
and 64-Link cartridges. VICMON and 
64MON are cartridges available from 
Commodore,- HESMON is available on 
cartridge for both machines from 
Human Engineered Software; and the 
others are disk or cassette-based 
monitors available as listings in 
magazines or from user's groups. One 
of the commercial cartridges will 
cost $40-$50. The others are free or 
nearly free. 

You should also have a copy of the 
Programmer's Reference Guide for your 
computer and a good general 6502 pro- 
gramming book, such as Lance Laven- 
thal's 6502 Assembly Language 
Programming. 

The next step is to get a full-fledged 
assembler. This will cost about $100. 1 
have been using PAL (by Brad 
Templeton, sold by Pro-Line Software) 
and find it especially convenient 
because it's designed to work with 
POWER, which I reviewed here earlier. 
PAL does not have macros or condi- 
tional assembly, but it has several ad- 
vantages, such as using the BASIC 
editor for source files. It is quite a bit 



smaller than others and is relatively 
position-independent. MAE, from 
Eastern House Software, is a full- 
featured assembler that is well sup- 
ported. It is still the only assembler 
available for all the major 6502 
machines. I have used versions for the 
PET since the beginning. Com- 
modore's assembler is also an excellent 
package that includes macros and con- 
ditional assembly. There are other pro- 
grams beyond the assembler, such as 
Pterodactyl's PTD 6502/6510 Debug- 
ger, but they are for pretty serious 
programming. 

If you are at all serious about learn- 
ing about computers, you owe it to 
yourself to explore machine language. 
Many things will suddenly become 
much clearer. You may not end up do- 
ing a lot of assembly language pro- 
gramming, but just the exercise will 
be rewarding. 

JMCRO 



You may contact Loien Wright 
at P.O. Box 6S02, 
Amhezst, NH 03031. 



FOR APPLE II PLUS, FRANKLIN, APPLE He 

Font DownLoader* 

Expand the capacity of your printer hundreds of times 



Load custom fonts into your Apple" Matrix Printer, Pro- f; yr— 1 
writer" 8510A, OKI" Microline 92, 93, 84 Step II. and sJ~i 
Epson® FX and use them with virtually every word // C^ 1 
processor to turn your printer into a custom type- ft .. m 
setter. Alter the fonts are loaded, they will stay * ""**" UJ 

in your printer until it's turned off. A 
font editor is also provided to 
allow you to create your 
own graphics, text, foreign 
language letters, math and 
electronics symbols to load 
into your printer. 

On-Disk (Specify Primer) 

$39,00 

' Requires printer interface that 
adheres to Apple protocall 
'Jymac, Apple, Epson, etc.) 
(Will notwork with Pkaso. Wizard 
and some others) 



SI ST H 
-T A 4 

R TT X^ + Y* 
UC III- 4- I 

ytwso fl \ 

"TTI. 



_LT 



r+$100 REWARDS 

Submit the best or most unique font using the above 
software and we will make you $100 richer. Other 
prizes for the first 25 runners up. 



Dealer and Distributor 
Inquiries Invited 



1342 B Rt. 23, 



micro 
umrE 

Butler, NJ 07405 
201-838-9027 



C64-FORTH 

for the Commodore 64 

FORTH SOFTWARE FOR THE COMMODORE 64 
C64-FORTH (TM) for the Commodore 64 - $99.95 

• Fig Forth-79 implementation with extensions 

• Full feature screen editor and macro assembler 

• Trace feature for easy debugging 

• 320x200, 2 color bit mapped graphics 

• 16 color sprite and character graphics 

• Compatible with VIC peripherals including disks, data set, modem, 
printer and cartridges 

• Extensive 144 page manual with examples and application screens 

• "SAVETURNKEY" normally allows application program distribution 
without licensing or royalties 

C64-XTEND (TM) FORTH Extension forC64-FORTH - $59.95 
(Requires original C64-FORTH copy) 

• Fully compatible floating point package including arithmetic, 
relational, logical and transcendental functions 

• Floating point range of lE+38 to 2E-39 

• String extensions including LEFT! RIGHT! and MID$ 

• BCD functions for 10 digit numbers including multiply, divide, and 
percentage. BCD numbers may by used for DOLLAR.CENTS 
calculations without the round-off error inherent in BASIC real 
numbers. 

• Special words are provided for inputting and outputting 
DOLLAR.CENTS values 

• Detailed manual with examples and applications screens 

(Commodore 64 is a trademark of Commodore) 

TO ORDER - Specify disk or cassette version 

- Check, money order, bank card, COD's add $1 50 

- Add $4.00 postage and handling in USA and Canada 

- Mass. orders add 5% sales tax 

- Foreign orders add. 20% shipping and handling 

- Dealer inquiries welcome 

PERFORMANCE MICRO PRODUCTS 

. 770 Dedham Street. S-2 

Canton, MA 02021 

(617) 828-1209 
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Product Name: SYSRES 

Equip, req'd: Commodore 64 and 1541 disk drive 

Price: $95.00 

Manufacturer: Solidus International Corp. 

1060 Roosevelt Crescent 

North Vancouver, BC 

Canada, V7P 1M3 

(604)984-0477 

Description: Sysies is supplied on a single 5 M " disk. It ex- 
tends and enhances the C-64 operating system. Originally 
developed for the PET, Sysres adds 33 new commands to 
BASIC and includes 11 DIS-support commands. The added 
commands rovide such features as renumbering a pro- 
gram, search and replace, auto-line numbering, forward 
and backward scrolling through a listing, and many more. 
Some of these new commands function in different ways, 
depending upon the options selected, so that altogether 
over one thousand new functions are added. Sysres will 
function with an IEEE-488 adaptor, gaining access to 
larger, faster CBM dual disk drives and printers. It also 
supports non-CBM, ASCII printers. 



Pluses: Although the number of features available is large, 
the syntax is clear and logical — quite easily mastered. 
Also notable is the fact that Sysres code is "hidden" — us- 
ing almost none of the available program space. It can be 
booted without disturbing the resident BASIC program. 
From end-to-end Sysres appears to be well thought out and 
professionally implemented. In the "programmers aid" 
category Sysres is definitely a Cadillac. Note that pro- 
grams written using Sysres do not need Sysres to run later. 

Minuses: The system is supplied on a Master diskette that 
is copy protected. It cannot be backed up. However, 
Solidus guarantees replacement free of charge within 90 
days of purchase, and replacement for $10.00 thereafter. 

Skill level requited: This product is targeted for the serious 
programmer. However, it's logical, easily learned syntax 
should make it useful for anyone with even modest profi- 
ciency in BASIC. 

Documentation: The Sysres master disk is accompanied 
by a 112 page user's guide in the form of a 3-ring hard- 

(Continued on next page) 



What's Where in the Apple 

A Complete Guide to the Apple Computer 



This Revised Edition of the famous 
Apple Atlas provides Apple 
computerists with a framework for 
understanding both the overall 
structure of the Apple system and 
programming techniques that 
exploit that knowledge. 

What's Where in the Apple contains 
the most complete memory map 
ever published as well as detailed 
information needed for actual 
programming. 

All for only $24.95 

(plus $5.00 s/h) 

MICRO makes it easy to order. 
Send check (payable to MICRO} to: 



that's Wte "»n 




For owners of the original edition, 

MICRO is offering a companion book, 

THE GUIDE to What's Where in the 

Apple, for only $9.95 (plus $2.00 s/h). 



THE GUIDE contains all new material 

that explains and demonstrates how to 

use the Atlas and Gazetteer published 

in the original volume of What's 

Where in the Apple? 



For Fast Service 

Call our toll free number: 

1-800-354-8112 

(In PA 1-800-662-2444) 



MICRO 

P.O. Box 6502, Chelmsford, MA 01824 



VISA and MasterCard accepted. 



MA residents add 5% sales tax. 
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backed, loose-leaf notebook. However, it is very good in 
the description of the syntax and use of Sysres. Each com- 
mand is fully explained and examples are given. 

Reviewer: Roger Crites 



Product Name: Smart Ascii 

Equip, req'd: Commodore VIC-20 or '64 any memory 

configuration 
Price: $59.95 

Manufacturer: Midwest Micro Associates 

P.O. Box 6148 

Kansas City, MO 64110 

Description: Smart Ascii is a software/hardware package 
that interfaces the Commodore VIC-20 or '64 to any 
parallel printer using the "Centronics standard" protocol. 
The package consists of a cassette tape containing the soft- 
ware interface (there are separate versions for the VIC and 
'64, both on the same tape), and a three foot cable for con- 
necting the computer to the printer via the user port. 

Pluses: Smart Ascii is very easy to install and responds to 
the same type of commands as the VIC printer (OPEN, 
CMD, PRINTS). It has three very useful printing options: 
TRANSLATE translates selected control characters into a 
character string (reverse on becomes "(RVS)", etc.). 
"CBM" ASCII prints all uppercase, for program listings. 
"TRUE" ASCII prints upper and lowercase for word pro- 
cessing applications. The software is not protected and 
may be backed up to cassette or disk. 

Minuses: The supplied cable is only three feet long. The 
software disables the RESTORE key, which makes life a 
little difficult if a program ends or is stopped with any of 
the screen or sound registers not reset. 

Documentation: The documentation is very complete and 
clear. It is well organized, and includes a table of contents. 
A minor complaint is that the information concerning 
linefeed conventions and printer control codes, both of 
which are essential to proper operation of the printer, 
are hidden in the section labelled "Advanced Program- 
mer Tips' ' . 

Skill level required: Minimal. Some knowledge of the 
printer being used may be required to set the linefeed con- 
vention correctly. 

Reviewer: Michael Morris 



Product Name: 
Equip, req'd: 
Price: 



Fundamentals of Mathematics 

Commodore 64 with 1541 disk drive 

6-disk set-$249.95 

3rd grade level only-$69.95 (2 disks) 

5th grade level only-$69.95 (2 disks) 

9th grade level only-$99.95 (3 disks) 

Worksheets for Lessons/Programs 

1-89-S29.95 

"Hands-on Preview" disk-$9.95 



Manufacturer: Sterling Swift Publishing Co. 
7901 South IH-35 
Austin, TX 78744 
(512)282-6840 

Description: An educational set of 89 lessons and pro- 
grams that may be used with children from the third grade 
on. The lessons cover mathematics from reading and 
writing two to seven digit whole numbers through equa- 
tion solving and hit almost everything in between. The 
package is formatted for use by teachers in the classroom. 
Each lesson is backed up with worksheets which may be 
reproduced for classroom use by the students. The 
worksheets are broken up into pre-test, sample problem, 
problem, and post-test to allow use as needed to reinforce 
the learning process. 

Pluses: The lessons are well done. In fact this is one of 
the best teaching packages I have worked with. When the 
problems re answered correctly the success is con- 
gratulated by terms such as: very good, fabulous, etc.. 
When a wrong answer is given, it is simply stated without 
any chastisement. At the end of each lesson, if more than 
40% of the answers were given wrong, the program sug- 
gests that a review might help. 

Minuses: The program were evidently translated from PET 
versions and do not made good use of the color, graphics 
and sound available from the Commodore 64. 

Documentation: As the programs with their worksheets 
are self explanatory, not much addition documentation is 
needed or supplied. It tells how to use the programs and 
suggests methods for obtaining the best learning results 
from children whose needs vary. 

Skill level required: The program set is made to be used in 
a learning environment. This does not limit them to 
teacher use only as a parent could make good use of them 
at home to help the children develop their skills in 
mathematics. Almost no specific computer knowledge 
is required. 

Reviewer: Richard E. DeVore 



Product Name: C64-FORTH 



Equip, req'd: 

Price: 
Manufacturer: 
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Commodore 64 Computer; 1541 Disk 

drive & printer optional 

$49.95 

Computer Marketing Services 

300 W. Marl ton Pike 

Cherry Hill, NJ 08002 

(609)795-9480 



Description: C-64 FORTH is a cartridge based implemen- 
tation of the language. It allows programming on the Com- 
modore 64 with a language that is transportable between 
systems. 

Pluses: It is extremely close to a standard version of fig- 
FORTH and can be adapted to accept FORTH- 79 standard 

(Continued on page 38) 
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SJB DISTRIBUTORS 

One Stop Shopping for 
COMMODORE Systems 



Gift Ideas 

for Computer Lovers 

JZ&&&X& Holiday Specials! :^^_ 
'Word Processing $1995.00 Recreation 

CBM 8032 CBM 8050 PET /IEEE CABLE Bay 2 Games, Get 1 Surprise 

4022 PRINTER WP4+ VERBATIM DISKS Game FREE! (While stock lasts) 




NEW COMMODORE PRODUCTS 

The Executive 64 Call 

CBM B128-80 $ 825 

CBMB256-80 1095 

CBM BX700 2990 

B Series Software Call 

CBM 1520 Plotter 169 

CBM 1526 Printer 349 

SOFTWARE FOR CBM 64 
BUSINESS 

WordPro 3* /64w /Spell Right Plus .... S 95 

Spell Right Plus 55 

Calc Result (Advanced) 1 25 

Calc Result (Easy) 75 

Busicalc II 95 

Mirage Concepts 

(Powerful Data Base) 95 

M File (merge with WordPro) 89 

Home Utilities 49 

64 Mailing List (Galactic) 28 

The Manager 50 

Home Accountant (continental) 75 

Code Writer (Writes Basic Programs) ... 95 

Stock (Investment analysis) 80 

Agricultural Management Call 

General Ledger, A/R, A/P, P/R, Inv Call 

RECREATION 
Assembler Package (cassette or disk, 

compiled, includes editor, loader, 

disassembler) 39 

Sprite Master (access) 30 

Neutral Zone (access) 35 

Space Belt 19 

Pet Emulator 30 

Coco II (build your own games) 40 

Vic Tree (programmers utilities) 75 

Micro -Term (Save to printer disk) 39 

Hesmon 35 

Synthesound 45 

Gothmogs Lair 30 

Road Toad 15 

Commodore Games Call 

INTERFACES ft ACCESSORIES 

80 Column Expander $ 159 

VIC 1600 Modem 95 

VIC 1650 (auto answer, auto dial) 150 

VIC 1 525 Graphic Printer 225 

VIC 1 530 Datasette Recorder 65 

VIC 1541 Disk Drive 249 

VIC Switch (connect 8 64s or Vies 

to printer, dd) 149 



PET -IEEE cable 33 

IEEE-IEEE cable (2m) ,49 

5 Slot Expander tor 64 65 

Parallel Interface (Epson, Okidata, 

IDS, NEC) 70 

Programmers Reference Guide 18 

Verbatim Diskettes (10 per box) 26 

Hes Modem '. 75 

ADA 1450 149 

ADA 1800 (new) 129 

Numeric Keypad 35 

VIC PRODUCTS ft ACCESSORIES 
8K RAM Memoiy Expansion Cartridge . . . S 40 

16KRAM 70 

24KRAM 105 

VIC 3 Slot Expander 27 

VIC 6 Slot Expander 70 

Gorf (64 also) 30 

Omega Race 30 

Arcade Joystick - Heavy duty w/2 firing 

buttons! Great for the VIC or 64 25 

Auto Clock 125 

MONITORS - GREAT 
RESOLUTION (64 OR VIC) 

CBM 1701 Color Monitor S 249 

Amdek Color Plus 299 

Panasonic TR-120 Qn /speaker) 155 

BMC (green screen) 95 

Video/Audio Cable 15 

PRINTERS - LETTER QUALITY 

CBM 6400, 40 cps S 1450 

Diablo 620, 25 cps 949 

Transtar 140 (serial) 1395 

Transtar 130, 16 cps (auto load, 

wp features!) 769 

NEC 3500 Series 1600 

NEC 7700 Series 2350 

TL 20 500 

PRINTERS - DOT MATRIX 

CBM 8023, 150 cps/graphics S 545 

CBM 4023 Printer 395 

Epson FX Printer, 160 cps 549 

Epson MX -80 FT w/graffrax Call 

Epson FX-100 859 

Okidata 82A, 120 cps (serial 

and parallel) 429 

NEC 8023A (parallel) 429 

Okidata 92 559 

Star Gemini, 10X 329 

Star Gemini, 15 499 

Transtar 315 (Jii-res, color) 575 



COMMODORE 
BUSINESS SERIES 

SuperPet (5 languages, 

2 processors) $ 1 05! 

CBM 8032 Computer, 80 Column .... 625 

CBM Memory Expansion, 64K 259 

CBM 8050, 1 mg. Dual Drive 995 

CBM 8250, 2 mg. Dual Drive 1 295 

CBM D9060, 5 mg. Hard Disk 1995 

CBM D9090, 7.5 mg. Hard Disk .... 2250 
CBM 2031, 170K Single drive (New) . . . 295 

DC Hayes Smart Modem 220 

BUSINESS SOFTWARE-SOU 

WordPro 4* or 5* $ 309 

InfoPro 219 

Administrator 489 

VTsiCalc (expanded) 199 

BPI A/R, G/L, Job Cost, Inventory, 

Payroll ea. 325 

SJB has a full line of computer media in stock, 
call or write for more information. 

Product Selection Advice 

Customer Service 

214-343-1328 





SJB DISTRIBUTORS INC. 

10520 Piano Road, Suite 206 
Dallas, Texas 75238 

To Order— Call Toll Free: 
800-1 27-489 3 
800-442-1048 

(Within Texas) 

Business Hours: 

Mon.-Fri. 8:30 -5:30 

Saturday 10-2 

% POLICY % 

VISA/MASTERCARD add 3%. 

COD. tor Cosh or Bank Check. 

Exact Freight Calculated. 

Products shipped with manufacturers warranty. 

Prices and stock subject to change without notice . 

F.O.B. DALLAS, TEXAS. 

'Customers must call for return authorization 

before returning any product. 
'Minimum order ot $50.00. 

WRITE for FREE Catalog! 



code. The language itself is extremely fast. It almost 
equals assembly language in its speed of operation. It is an 
excellent medium to write games in due to the speed of 
operation. Once learned, FORTH is much easier to write 
than assembly or machine language. 

Minuses: The program does not come with sufficient in- 
formation to start using it if you are not already familiar 
with the language. A disadvantage to someone who is used 
to using FORTH on another computer is the fact that it is 
supplied in a cartridge rather than on disk. Other im- 
plementations which I am familiar with are disk based. 
The manual does say that it is not a textbook on FORTH 
and supplies a list of reference material to help get 
you started. 

Documentation: The 34 page User's guide & Reference 
Manual is broken into three parts. The first portion ex- 
plains FORTH differences. The second and largest section 
contains a glossary of the words in C-64 FORTH while the 
third section explains how to get C-64 FORTH to work 
with FORTH-79 standard code. If you know something 
about FORTH or are willing to learn outside of the pro- 
vided information, you will find that it is a good im- 
plementation. The manual, within the above limitations, 
presents the information clearly. 

Skill level required: User who has progressed beyond the 
beginner stage. 

Reviewer: Richard E. DeVore 



Product Name: 

Equip, req'd: 

Price: 
Manufacturer: 



: Commodore ~ 

Passive Solar Design Program for Home 
Owners 

Commodore 64 with 1541 disk drive or 

Dattasette 

$99.95 

Don Danvlyk 

1538 Ohio Ave. 

Virginia Beach, VA 23454 

1804)425-7792 

Description: A solar design program for the Commodore 
64 that helps determine the effectiveness of your design. 
The program will help design add-ion greenhouses or 
direct solar-gain passive structures. The choices are: a 
solar addition without heat storage; an addition with un- 
insulated heat storage; an addition with well insulated 
heat storage; and an addition using direct solar gain. 
Pluses: The program gives a full financial breakout for 
each of your designs if desired. It also states whether or not 
the design is economically feasible. It does this through 
comparing heat savings to project cost and heat savings to 
interest that could have gotten from the same investment. 
Minuses: The computations are approximate rather than 
actual. If you want to change a dimension while inputting 
your design, the program takes you back to the menu. 
Documentation: Almost non-existent. The saving grace is 
that after trying the program several times, you won't 
need documentation. 

Skill level required: Could be used by a beginning 
computerist. 

Reviewer: Richard E. DeVore JMCRO" 



HOW MUCH LONGER WILL YOU LAST? 



How long can you endure? When will it end?... We're not talking about a new shoot 'em up game for the 
Commodore 64, but Commodore's own disk operating system! Commodore made a great computer in 
the 64 but left its disk operating system out in the cold. If you've been waiting for a true disk operating 
system, here it is!... If you've been waiting for a great BASIC language enhancement that will let you 
utilize the Commodore's many special features, here it is! What is it? It's graf DOS, the great new utility 
from Xylex Software that allows the user to actually become friendly with the Commodore 64! graf DOS 
includes commands like DELETE, RENAME, CATALOG, RUN, etc. The BASIC allows you to do high 
resolution and low resolution graphics, sound, sprite program, plus much, much more for a total of 40 
commands! Plus included in every package is MINIMON, a powerful machine language monitor that 
includes another 20 commands for use in machine language. The disk also comes with sample pro- 
grams and demos including a great music generator! And all this together is only $49.95! How could 
you have lasted this long without it? 

DON'T WAIT ANY LONGER! 
Make your programming easier! grafDOS is available now at your local dealer or: 




INT€R€STING SOFTWARE 

21101 S. Harvard Blvd. 
Torrance, CA 90501 
(213) 328-9422 



Visa/MC/Check/Money Order 
Add $2.00 shipping 
CA residents add 6 1 /2# sales tax. 
Dealer inquiries invited. 



38 



MICRO 



No. 67 • December 1983 



Typing in the Listing 



Apple = 



[pr reference only, the data 

e machine language are 

jrogram [listing 1). After 

le 760 can be changed to 




Listing 1 

10 REM * MICROCALC 

20 REM t BY F. DALEY 

30 REM i COPYRIGHT CO 1983 

40 REM * BY MICRO INK 

50 FOR II -- 1 TO 29:C* - C* + " 

60 Dt = CHR* (4!: HOME : GOTO 550 

70 VTAB XX: PRINT Bt(XX); 

80 IF HIM «B»(XX).2 f l) = "?" THEN PRINT SB*( XX 



NEXT :C* ^ C* + 



368: GOTO 130 L 
LEN (B*<XX 
a^fl: PRINT 



?0 IF XX = 24 THEN CALL 

100 INVERSE 

110 PRINT CHR* (BB): RIGHT* CM, 29 

)) - LEH (BB*(XX><); 
120 NORMAL : PRINT A*< XX ); : CALL - VW 
130 RETURN. (1 

140 XX = l: GOSUB 70 ** 

150 AA = PEEK ( - 16384): IF AA < 127 THEN 150 
160 IF FLAG = 1 THEN FLAG = 0: FOR II = 1 TO 24:B 

B*UI) = "": NEXT 
170 POKE - 16366.0 "R 

180 AA = AA - 128 
190 IF AA = 64*"THEH FLAG = 1 : B3 = 32: GOSUB 70: GOTO 

400 
200 IF AA = 33 THEN GOSUB 640:XX = l: GOSUB 70: GOTO 

150 
210 IF AA = 34 THEN GOSUB 1410: GOTO 150 
220 IF AA = 44 OR AA = 59 OR AA = 93 THEN 350 
230 IF AA ) 39 AND AA < 95 THEN 320 
240 BB = 32: GOSUB 70 F) 

250 IF AA = 32 THEN 360 ^ 

260 IF AA = 13 THEN XX = XX + l: IF XX > 23 THEN 

XX = 1 
270 IF AA = 9 AND YY > 1 THEN B$< XX ) = LEFT* IB* 

(XX). LEN CBICXX)) - 1 ):YY = YY - 1: GOTO 290 



280 
290 



8 AND YY = 1 THEN 3*<XX) = "":YY = YY 
XX - l: IF XX { 1 THEN X 



IF AA 
- 1 
IF AA = 21 THEN XX 



300 

310 



IF AA = 27 THEN GOTO 1100 

GOTO 340 
320 YY = YY + l: IF YY ) 28 THEN BB = 32: GOSUB 70 

:XX = XX + UYY = 0: GOTO 340 
330 B*(XX) = B*CXX) + CHR* (AA) 
340 YY = LEN CB*(XX)):BB = 95: GOSUB 70 



350 
360 
370 
380 

390 
400 

410 
420 
430 
440 

450 

460 
470 

480 

490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 

600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 



GOTO 150 _ 

VTAB XX: HTAB 31 C 

INPUT A$(XX) **" 

IF LEN ( A*( XX ) ) ) 9 THEN A*( XX ) = LEFT* ( A* 

UX>,9> . 

HTAB l: GOSUB 70:XX = XX + 1". GOTO 340 

FOR II = 1 TO 24:CT = 0:BUF = 511: POKE 216.0 

IF LEN (B*(II)) i 2 THEN 530 r- 
IF MID* (B*(II),2,1) < > "=" THEN 490 ti 
FOR JJ = 1 TO LEN (8*UI)) 

IF MIH* (B*(II),JJ,1) = THEN FG = 1: GOSUB 

470: GOTO 460 

POKE BUF + JJ, ASC < MID* CB*UI ),JJ,1 ) ):CT = 
CT + 1 -C 

NEXT JJ r 

POKE BUF * JJ,13:BUF = BUF - (CT + 1): QNERR 
GOTO 1360 
CT = 0: CALL 768: IF FG = 1 THEN FG = 0: RETURN 



IF MIH* <B*(II ),2,1> 
GOSUB 810 



THEN 530 



BB*(II) = 



+ STR* (XI) 
GOSUB 70 



XX = IUBB = 32: 

NEXT II 
XX = l: GOTO 340 

FOR II = 1 TO 29:3* = 3* + "*": NEXT 
SS* = "* r A 

VTAB 5: PRINT S»: FOR II = 1 TO 10 

PRINT SS*: NEXT 

PRINT S*: VTAB 8: HTAB 5: PRINT "MICRO CALC F 

QR APPLE" 

VTAB 10: HTAB 5: PRINT "BY P. DALEY" 

VTAB 12: HTAB 5: PRINT "COPYRIGHT (C) 1983" 

DIM B*(25),A*(25),BB*(25) 

GOSUB 690:' GOTO H90 

INVERSE : VTAB 1 

HOME 

FOR II = 1 TO 23: PRINT C* 
B*(II) = "":A*(ID = "" 

NEXT : GOSUB 1410: NORMAL : RETURN 

FOR II = 768 TO 805 11 

READ AA: POKE II. AA: NEXT JX 

DATA 165,184.72.165,135.72,169,0,133,184 

DATA 169,2,133,135.32,89.213,169,0,133 

DATA 184,169,2,133,185,32,70,218,104,133 

(Continued on next page) 
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Listing 1 (continued) 



740 
750 
760 



= A: RETURN 
B: RETURN 



DATA 185,104,133,184,96 

DATA 104.104.96 

REM RETURN :REM TAKE OUT FIRST REM TO REMOVE 
STARTUP VARIABLES 
770 FOR II = 1 TO 15: READ A*( II ),B*( II ): NEXT 
780 RETURN 
790 DATA PRINCIPAL, A=8000.,,NUM MNTHS,M=48,,,INT 

RTE. 1=11 .9, , ,MNTHLY IR, 1=1/1200, , 
800 DATA DIVISOR, D=( l-( 1+1 )*-M )/I. , t MONTH RTE,P=A 

/H,„ ROUND, F-INT(P*100+.5)/100,,, PAYMENT, P? 
810 JJ = ASC ( LEFT* (B*(II).1)> - 64 
S20 ON JJ GOTO 840,850,860.870,880,890,900,910,92 

0, 930, 940, 950, 960, 970, 980, 990, 1000, 1010, 1020, 

1030, 1040, 1050, 1060, 1070, 1080, 1090 
830 RETURN 
840 XI 
850 XI 
860 XI 
870 XI 
880 XI 
890 XI 
900 XI 
910 XI 
920 XI 
930 XI 
940 XI 
950 XI 
960 XI 
970 XI 
980 XI 
990 XI 
1000 XI = Q 
1010 XI = R: 
1020 XI = S: 
1030 XI = T: 
1040 XI = U: 



= C 



F: 

G: 



RETURN 
D*. RETURN 
E: RETURN 
RETURN 
RETURN 
H: RETURN 
I: RETURN 
J: RETURN 
K: RETURN 
L: RETURN 
M: RETURN 
N: RETURN 
0: RETURN 
P: RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 



I 



1050 XI = V. RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

ONERR GOTO 1190 
VTAB 10: INVERSE : PRINT "S"; 
NORMAL : PRINT "AVE 0R "; "H" 

INVERSE : PRINT "L": X1 

NORMAL : PRINT "OAD?" 
PRINT : PRINT "<RETURN> FOR CATALOG." 
GET A$: PRINT : IF ASC (A$) = 13 THEN PRINT 
D*"CATALOG": GET A$: GOTO 1100 
IF A* = "S" THEN GOSUB 1200 
IF A$ = "L" THEN GOSUB 1270 
POKE 216,0: HOME :BB = 32: FOR XX = 1 TO 24 
GOSUB 70: NEXT :BB = 95: HTAB 1: GOTO 140 
PRINT : PRINT "FILENAME?": INPUT F»:F* = F* + 
".CAL":B*(24) = F$ 
PRINT D$"OPEN"F» 
PRINT D$"URITE"F* 
FOR II = 1 TO 25 
PRINT A$(II): PRINT B*(II) 



1060 XI ^ W: 

1070 XI = X: 

1080 XI = Y: 

1090 XI = Z: 

1100 HOME : 

1110 

1120 

1130 

1140 

1150 

1160 

1170 
1180 
1190 

1200 

1210 
1220 
1230 
1240 



m m 



1270 

1280 
1290 
1300 

m 



NT D$"CLOSE": RETURN 
PRINT : PRINT "FILENAME?" 
.CAL" 

PRINT D$"OPEN"F$ 
PRINT D*"REAB "F$ 
FOR II = 1 TO 25 
INPUT A$(II) 
GET A$: IF A* = 
B$(II) + 



INPUT F$:Ft = F$ + 



CHR$ (13) THEN 1340 
A$: GOTO 1320 



CJ3 


WARE ASSOCIATES, LTD. 

r 


u- 

t— 

LU 


0-card 


Questionnaire Analysis Software 




• Microcomputer based 

Avoid the expense of controct services - do everything in-house on 
your own Apple 11+ microcomputer. 




• Easy data entry 

Avoid time consuming keypunching Uses respondent-marked cards 
entered v/ith an Optical Mark Reader (keyboard entry also possible). 




• Comprehensive data analysis 

Sort on any variable(s), tally all responses, conduct crass tabi, 
correlations, linear regression, frequency distributions, and more. 




• Complete editing capabilities 

Weighr items, derive composites, add or delete items, and more. 


• Easy-to-use 

Programs are user friendly, menu driven, and interactive. No special 
computer expertise is required. 


Call or send for more information today. 


SCIENTIFIC SOFTWARE ASSOCIATES, LTD. 


bqx aoa • wflusflu, wi. syjai 


TELEPHONE: (715) aUS-ao&E, 


Apple 11+ is a registered trademark of Apple Computer, Inc. 



1330 BWII) 

1340 NEXT 

1350 PRINT D$"CL0SE": RETURN 

1360 POKE 216,0 

1370 VTAB II: HTAB 23: FLASH 

1380 PRINT "< -SYNTAX ERROR": 

1390 NORMAL " CALL - 868: HTAB 1 

1400 XX = l: GOTO 340 

1410 A = 0:B = 0:C = 0:D = 0:E = 0:F 

0:1 = 0:J = 0:K = 0:L = 
= 0:Q = 0:R = 0:S 

0:X = 0:Y = 0:Z = 



M 



0:G = 0:H = 
M = 0:N = 0:0 = 0:P 
0:T = 0:U = 0:V = 0:U = 
RETURN 



Listing 2 





1 




TTL "INPUTTING STATEMENTS" 




A 


****************************** 




4 


* INPUTTING STATEMENTS 




5 
6 
7 
8 
9 


* 


ON THE APPLE II 




* 

TXTPTP 


PHIL DALEY 




EP2 $B8 




10 


INPUT 


EQU $200 




11 


TOKEN 


EQU $D559 




12 


LET 
* 


EQU $DA46 




14 


ORG $300 


0300 A5 B8 


15 


START 


LDA TITPTR 


0302 48 


16 




PHA 


0303 A5 B9 


17 




LDA TXTPTR+$1 


0305 48 


18 




PHA 


0306 fl? 00 


19 




LDA tINPUT 


0308 85 B8 


20 




STA TXTPTR 


030A A9 02 


21 




LDA /INPUT 


030C 85 B9 


22 




STA TXTPTR+$1 


030E 20 59 D5 


T7 




JSR TOKEN 


0311 A9 00 


24 




LDA tINPUT 


0313 85 B8 


25 




STA TXTPTR 


0315 A9 02 


24 




LDA /INPUT 


0317 85 B9 


27 




STA TXTPTR+tl 


0319 20 46 DA 


2B 




JSR LET 


031C 68 


79 




PLA 


031 D 85 B9 


30 




STA TXTPTR+tl 


031 F 68 


31 




PLA 


0320 85 B8 


32 




STA TXTPTR 


0322 60 


33 


END 


RTS 


0323 


34 




END iAICftO 
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A Catalog Sorter for the Apple II 

requires: 

Apple II with at least 32K 
RAM, disk drive with DOS 3.3 



by Mark Harris 



When I purchased my Apple II + a few years ago, my 
first disk was a model of organization. With only 
a few programs on the disk, it was easy to find any 
one of them. Now, with dozens of disks and hundreds of 
files littered around my basement, I have become a victim 
of creeping overhead; an ever-increasing fraction of my 
time is devoted to locating files rather than using them. 
(Think about me with hundreds of disks-Ed.) I decided 
that one modest step towards putting things in order 
would be to alphabetize the catalog on each of my disks. 

Of the 35 tracks on a standard DOS 3.3 disk, one 
(number 17) is set aside for keeping track of usage in the 
others. Most of the track is taken up by directory entries, 
each consisting of a file name and type, and a pointer to a 
track/ sector list elsewhere on the disk. While these en- 
tries cannot be loaded or stored as a standard DOS file, 
they can be read and modified in a straightforward manner 
by the RWTS (Read or Write a Track and Sector) routine 
described on pages 94-98 of the DOS Manual. I set out to 
write a program which would read all current directory en- 
tries, sort them, and re-write them so that subsequent 
CATALOGS would list them in alphabetical order. 

I first had to decide on what kind of sorting procedure 
to use, and whether to use BASIC or machine language. I 
started with the easiest combination to program: a simple 
bubble sort in BASIC. (For a description of all the sorts 
mentioned in this article, see [1].) After a few false starts 
(and destroyed directory tracks), I had the program func- 
tioning properly, but it took about two minutes to sort the 
catalog of a typical disk. I didn't know how the blame 
should be split between the slow speed of BASIC and my 
choice of sorting algorithm, so I replaced the bubble sort 
with the generally-faster Quick sort and tried again. The 
sorting time was reduced to one minute, but it was clear 
that BASIC was the primary culprit. I decided to throw in 
the towel and re-write the program in machine language. I 
also decided to use an insertion sort, which performs well 
for a short list (less than 50) that is already partially sorted. 
I thought this would be appropriate since (1)1 anticipated 
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re-sorting my catalogs occasionally as new programs 
would be added, and (2) a disk cannot catalog more than 
105 files, and typically has no more than 30 or 40. 

The finished product listed in this article does the sort 
in under one second. The user is prompted by the program 
to insert the disk to be alphabetized into the drive (drive 1, 
slot 6) and to press the RETURN key. Then the program 
reads the directory entries, sorts them, re-writes them to 
disk, and calls the CATALOG routine in DOS. From the 
user's point of view, upon pressing RETURN he sees the 
alphabetized catalog in about the same length of time re- 
quired for a standard CATALOG command. It is surprising 
to find that the disk has been updated in this short interval. 

Using the Program. 

After you have keyed in and saved the program, a sim- 
ple "BRUN CAT SORT" will get you under way. The pro- 
gram will ask for the disk to be alphabetized to be inserted 
into the drive. I strongly suggest trying the program first 
on disks that you have backed up, just in case you made a 
mistake in entering the program. Since the program 
tampers with track 17, which is critical to accessing the 
other tracks, any scrambling of data could result in the 
effective loss of all files on the disk. However, you can 
take some comfort from the fact that even if track 17 is 
completely clobbered, standard utilities such as "FIND 
T/S LISTS UTILITY" in [2] can reconstruct the disk. 

How the Program Works. 

All of the secrets of direct access to directory entries are 
given in the DOS Manual. The pertinent information is 
given in the description of the RWTS routine (pp. 94-98) 
and of the diskette directory (pp. 129-131). Each file on a 
disk has a 35 byte entry in the diskette directory on track 
17. The first two bytes give the track and sector number of 
the track/sector list associated with the file, which in turn 
lists the locations of the actual data sectors. Following the 
track and sector numbers is a one-byte code for the file 
type (text, binary, etc.), then 30 bytes for the file name. 
Finally, the last two bytes give the number of sectors used 
by the file. 

The first byte of the entry actually doubles as a flag. If 
the associated file has been deleted, an "FF" is entered in 
this position. If the entry has never been opened, a "00" is 
used. Since neither value represents a legitimate track 
number for file storage (track is used for DOS), there is 
no conflict involved. The idea behind CAT SORT is to 
keep reading entries into a table in RAM until a "00" is en- 
countered as the first byte. As the entries are read, if the 
lead byte is not "FF", the RAM address of the entry is put 
into a separate table. When all entries have been read, the 
entry table and the address table are duplicated in 
memory. A sort is done by swapping addresses rather than 
entries (this greatly speeds up the process) in one of the 
tables. When this is accomplished, entries in one entry 
table pointed to by the sorted addresses are transferred to 
the other entry table in the correct order (at the positions 
pointed to by the remaining address table). The altered 
directory is written back to disk, and the CATALOG 
routine is called to show the fruits of these labors. 

The sort used is very straightforward. An insertion sort 
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uses pretty much the same algorithm that most people 
would use for a manual sort of a few items. Suppose I want 
to alphabetize a stack of index cards, each of which has a 
single name on it. I start by taking the first two cards and 
swapping them if they are out of order. I take the third card 
and put it in the correct position in the first two. The 
fourth card is then inserted into the first three, and so on. 
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Listing 



* CAT SORT 

I BY MARK HARRIS 

* SORTS AND REWRITES THE 
t CATALOG OF THE DISK IN 

* DRIVE 1. USE ONLY WITH 

* STANDARD DOS 3.3 DISKS 

START 









DIR 


GEQU 


$FE 








TBL1 


GEQU 


$FC 








Al 


GEQU 


$3C 








A2 


GEQU 


$3E 








A4 


GEQU 


$42 








CH 


GEQU 


$24 








B0SWARM 


EQU 


$3D0 








CATALOG 


EQU 


$A56E 








MOVE 


EQU 


$FE2C 








C0UT 


EQU 


$FDED 








RDKEY 


EQU 


$FD0C 








HOKE 


EQU 


♦FC58 








TABV 


EQU 
ORG 


$FB5B 
$4200 


0031 


4200 


A200 


AGAIN 


LDX 


MOO 


C032 


4202 


3EQQ02 




SIX 


$200 


0033 


4205 


36FC 




STX 


T6L1 


0034 


4207 


8E6B44 




STX 


NUMABR 


0035 


420A 


2058FC 




JSR 


HOME 


0036 


420D 


* PRINT TITLE AND 


WAIT 


FOR (RET) 


0037 


420D 


A90C 




LDA 


3$0C 


0038 


420F 


S524 




STA 


CH 


003? 


4211 


A902 




LDA 


»$02 


fiAij'j 


4213 


205BFB 




JSR 


TABV 


0041 


4216 


A971 




LDA 


HMSGTTL 


0042 


4218 


85FE 




STA 


DIR 


0043 


421A 


A944 




LDA 


/MSGTTL 


0044 


421C 


85FF 




STA 


DIR+1 


0045 


421E 


205243 




JSR 


H0UT 


0046 


4221 


A90C 




LDA 


tt$0C 


0047 


4223 


3524 




STA 


CH 


0048 


4225 


A904 




LDA 


tt$04 


004? 


4 -I 


205BFB 




JSR 


TABV 


00-0 


422A 


A930 




LDA 


ftMSGNN 


do si 


422C 


35FE 




STA 


DIR 


0052 


422E 


A944 




LDA 


/MSGN.M 


0053 


4230 


35FF 




STA 


DIR+1 


00^4 


4232 


2052^3 




JSR 


HCUT 



0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 

006 E 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 

0086 
0087 
0088 
0089 

w 

0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 



4235 
4237 
4239 
423B 
423E 
4240 
4242 
4244 
4246 
4249 
424C 
424E 
4250 

4250 
4250 
4252 
4255 
4257 
4259 
425B 
425E 
4260 
4263 
4263 
4263 
4263 
4265 
4268 
426A 
426C 
426E 
4270 
4272 
4274 
4276 
4278 
427A 
427C 
427E 
4230 
4282 
4285 
4286 
4288 
428A 
428C 
428E 
4291 
4293 
4295 
4298 
429B 
429E 
42A1 
42A1 
42A4 
42A6 
42AS 
42AB 
42AD 
42AE 
42B0 
42B2 
42B4 
42B6 
42B8 
42BA 
42BL 
42BD 
42BF 
42C1 
42C3 
42C5 
42C7 
42C<? 
42CB 



A900 

8524 

A90A 

205BFB 

A98F 

85FE 

A944 

85FF 

205243 

20CCFD 

C98D 

B0F9 



A901 

8D6444 

A940 

85FD 

A90F 

3D5D44 

A92F 

8D6144 



85FF 

204S43 

A90B 

85FE 

A000 

B1FE 

F02F 

C9FF 

FQ0F 

A5FE 

91FC 

E6FC 

A5FF 

91FC 

E6FC 

EE6D44 

18 

A923 

65FE 

85FE 

D0E0 

AD5D44 

C901 

F00C 

CE5D44 

CE6144 

AD6144 

4C6342 

AD6044 

853C 

8542 

AD6144 

353D 

18 

6910 

3543 

A9FF 

853E 

A92F 

853F 

202CFE 

A900 
853C 
8542 
A9FF 
853E 
A940 
853D 
853F 



GETCR 



* SET UP 



LDA 
STA 
LDA 
JSR 
LDA 
STA 
LDA 
STA 
JSR 
JSR 
CMP 
BNE 
I OB FOR 



MG0 

CH 

tt$0A 

TABV 

WiSC INS 

DIR 

/MSGINS 

DIR+1 

MM 

RDKEY 

«$3B 

GETCF: 

READING 



DIRECTORY ENTRIES 
INTG $2000-2FFF: 

LDA «i 

STA IBCMD 

LDA #$40 

STA TBL1+1 

LDA t»$0F 

STA IBSECT 

LDA tt$2F 

STA IBBUFP+1 
READING SECTORS UNTIL A -'00' 



KEEP 



I FOUND IN 
DIRECTORY 



THE TRACK 
ENTRY: 



POSITION. CF 



LP1 



NXTENT 



ADB23 



NXTSEC 



* COPY 
DONERD 



t COPY 



STA 

JSR 

LDA 

STA 

LDY 

LDA 

BEQ 

CMP 

BEQ 

LDA 

STA 

INC 

LDA 

STA 

INC 

INC 

CLC 

LDA 

ADC 

STA 

BNE 

LDA 

CMP 

BEQ 

DEC 

DEC 

LDA 

JMP 
TRACK DUMP 

LDA 

STA 

STA 

LDA 

STA 

CLC 

ADC 

STA 

LDA 

STA 

LDA 

STA 

JSR 
$4000' 

LDA 

STA 

STA 

LDA 

STA 

LDA 

STA 

STA 



DIR+1 

RWTS 

tf$B 

DIR 

«$00 

(DIR),Y 

DONERD 

8BIR+1 

ADD23 

DIR 

(TBLD.Y 

TBL1 

DIR+1 

(TBLD.Y 

TBL1 ' 

NUMADR 

tt$23 
DIR 
DIR 

NXTENT 
IBSECT 
«1 

DONERD 
IBSECT 
IBBUFP+1 
IBBUFP+1 
LP1 
TO $3000- 
IBBUFP 
Al 
A4 
IBBUFP+l 

Al+1 

tmo 

A4+1 

ttDIR+1 

A2 

»$2F 

A2+1 

MOVE 



3FFF: 



40FF TO 
ft$0 



J0-41FF: 



Al 

A4 

ttDIR+1 

A2 

#$40 

Al+1 

A2+1 
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0131 
0132 
0133 
0134 

0135 
0136 
0137 
0138 
0139 



0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 

0157 
0158 
0159 
0160 
0161 
0162 



42CD A? 41 
42CF 3543 
42D1 202CFE 
42D4 

42D4 20CE43 

42D7 AD6D44 

42DA Oft 

42DB 3D6E44 



0140 42LE 



0141 42DE 



0142 42DE 



42BE 
42DE 
42E0 
42E3 
42E5 
42E8 
42EA 
42E6 
42EE 
42F0 
42F3 
42F4 
42F6 
42F8 

42F8 
42F8 
42FB 
42FC 
42FF 
4301 
4301 

0164 4303 

0165 ""' 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0130 
0181 
0182 
0183 
0184 
0135 
0136 
0137 
0138 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
020O 
0201 



4306 
4309 
430C 
430E 
4311 
4313 
4316 
4319 
43 1C 
43 IF 
4321 
4324 
4327 
432A 
432D 
432F 
4331 
4333 
4335 
4338 
433B 
433D 
433F 
4342 
4345 
4348 
4343 
4348 
4343 
434A 
434C 
434F 
4351 
4352 
4352 
4354 



A200 

BD0080 

85FC 

BD0041 

85FE 

£6 

BB0080 

35FD 

BD0041 

18 

6910 

85FF 



204C44 
E8 

EC6E44 
BODF 

A902 

8E6444 

AB5D44 

3D6F44 

A90F 

8D5B44 

A92F 

8D6144 

204843 

AD5D44 

CD6F44 

F009 

CE5D44 

CE6144 

4C1643 

206EA5 

A914 

S5FE 

A945 

85FF 

205243 

200CFB 

C9B9 

B003 

4C0042 

2058FC 

4CD003 



A944 

A053 

20B903 

BOOE 

60 

AOQO 
B1FE 
F006 



»$41 
A4+1 
HOVE 



SORT 
NUMADR 
A 
LSTBYT 



LOA 
STA 
JSR 

* BO INDEX SORT ON ADDRESS 
LIST AT $4100 

JSR 
LDA 
ASL 
STA 

* PUT ENTRIES IN ALPHABETICAL 
ORDER: 

* MOVE ENTRIES INDEXED BY 
ADDRESS LIST AT 

* $4100 (POINTING TO 
I3000-3FFF) TO 

* TO POSITIONS (J2000-2FFF) 
POINTED TO 

-* BY LIST AT $4000. 

LUX WOO 
HXTMV LDA 

STA 

LDA 

STA 

INX 

LDA 

STA 

LDA 

CLC 

ABC 

STA 

* HOVE ENTRY POINTED TO BY 
CBIR) TO 

* POSITION POINTED TO BY ( TBL1 ) 

JSR MOVENT 

INX 

CPX LSTBYT 

BNE NXTHV 

* WRITE SORTED LIST TO DISK: 

LDA tt$Q2 



TABL1,X 
TBL1 
TABL2.X 
DIR 

TABL1.X 

TBLl+1 

TABL2.X 

HtlO 
DIR+1 



HXTWRT 



FINISH 
ASKAGN 



EXIT 



* SUBROUTINES: 



STA 


IBCMB 


LDA 


IBSECT 


STA 


J 


LDA 


MOF 


STA 


IBSECT 


LDA 


S$2F 


STA 


IBBUFP+1 


JSR 


RWTS 


LDA 


IBSECT 


CMP 


J 


BEQ 


FINISH 


DEC 


IBSECT 


DEC 


IBBUFP+1 


JHP 


NXTWRT 


JSR 


CATALOG 


LDA 


H*14 


STA 


DIR 


LDA 


tt*45 


STA 


DIR+1 


JSR 


MOUT 


JSR 


RDKEY 


CMP 


»'Y' 


BNE 


EXIT 


.IMP 


AGAIN 


JSR 


HOME 


JMP 


BOSUARM 



Apple 



RWTS 



hour 

NXTCUT 



LDA 
LDY 
JSR 
BCS 
RTS 



/I OB 
ttlOB 
$3D9 
ERROR 



LDY MOO 
LDA (DIR).Y 
BEQ RET 



0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0213 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0223 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 

0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
,1977 

0279 



4358 
435B 
435C 
435E 
435F 
435F 
4362 
4364 
4366 
4369 
436B 
436D 
436F 
4372 
4374 
4376 
4378 
437A 
437D 
437F 
4381 
4383 
4386 
4338 
438A 
433C 
438E 
4391 
4394 
4397 
439A 
439C 
439E 
43A0 
43A3 
43A5 
43A7 
43A9 
43AB 
43AE 
43B0 
43B2 
43B4 
4387 
43B9 
43BB 
43BD 
43BF 
43C2 
43C5 
43C8 
43CB 
43CE 
43CE 
43CE 
43CE 
43CE 
43CE 

43CE 
43CE 
43CE 
43CE 
43CE 
43CE 
43CE 
43D0 
43D3 
43D6 
43D7 
43D8 
43DB 
43DD 
43DE 
43E1 
43E3 
43E6 
43E7 



20EDFD 
C8 

D0F6 
60 

AD4544 

C910 

B031 

2053FC 

A900 

8524 

A908 

205BFB 

A9CD 

85FE 

A944 

S5FF 

205243 

A900 

8524 

A90A 

205BFB 

A9EC 

35FE 

A944 

35FF 

205243 

200CFB 

4C0042 

2058FC 

A90F 

8524 

A903 

205BFB 

A909 

85FE 

A945 

35FF 

205243 

A900 

8524 

A916 

205BFB 

A9EC 

85FE 

A944 

S5FF 

205243 

200CFD 

2053FC 

4C2D43 

200CFD 



A901 

8D6F44 

AD6F44 

OA 

AS 

B90041 

35EC 

C8 

B90041 

85ED 

AC6F44 

83 

8C7044 



RET 
ERROR 



NOTUF 



JSR 


CQUT 


IHY 




BNE 


NXTOUT 


RTS 




LDA 


IBSTAT 


CMP 


M10 


BNE 


NQTUP 


JSR 


HOME 


LDA 


MOO 


STA 


CH 


LDA 


M08 


JSR 


TABY 


LDA 


SHSGWP 


STA 


DIR 


LDA 


,'MSGUP 


STA 


DIR+1 


JSR 


MOUT 


LDA 


MOO 


STA 


CH 


LDA 


MOA 


JSR 


TABV 


LDA 


MSGPRESS 


STA 


DIR 


LDA 


/MSGPRESS 


STA 


DIR+1 


JSR 


MOUT 


JSR 


RDKEY 


JMP 


AGAIN. 


JSR 


HOME 


LDA 


MQF 


STA 


CH 


LDA 


mob 


JSR 


TABV 


LDA 


8MSGI0ER 


STA 


DIR 


LDA 


/MSG1CER 


STA 


DIR+1 


JSR 


MOUT 


LDA 


MOO 


STA 


CH 


LDA 


8*16 


JSR 


TABV 


LDA 


MtSGPRESS 


STA 


DIR 


LDA 


/MSGPRESS 


STA 


DIR+1 


JSR 


MOUT 


JSR 


RDKEY 


JSR 


HOME 


JMP 


ASKAGN 


JSR 


RDKEY 



1 INSERTION SORT 
* 

* TABLE OF ADDRESSES MUST START 
t AT $4100 

* NUMADR MUST CONTAIN » 
ADDRESSES 

* 

KADR GEQU $EC 
LADR GEQU $EE 
TABL1 EQU TABL1 
TABL2 EQU $4100 



SORT 



JLP 



LDA 


SI 


STA 


1 


LDA 


J 


ASL 


ft 


TAY 




LDA 


TABL2,Y 


Si A 


KADR 


IKY 




LDA 


TABL2, Y 


STA 


KADR+1 


LDY 


J 


DEY 




STY 


L 



(Continued on next page) 
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027? 


43EA AD7044 


LLP 


LBA 


I 

1- 


0260 


43£D 


OA 




ASL 


A 


028 i 


42EE A8 




TAY 




0282 


43EF 


B90041 




LBA 


TABL2 f Y 


0283 


43F2 


85EE 




STA 


LABR 


02S4 


43F4 C3 




INt 




0285 


43F5 B90041 




LDA 


TABL2, Y 


0286 


43F8 


85EF 




STA 


LADR+1 


0287 


43FA A003 




LLt 


«3 


0288 


43fC 


B1EC 


NXTCHfi 


LBA 


(KADR),Y 


028? 


43ft 


B1EE 




CMP 


(LADRVf 


0290 


4400 


B007 




BNE 


BNCMP 


0291 


4402 


C021 




CPY 


#33 


0292 


4404 


F003 




BEG 


DtOP 


0293 


4406 


C8 




INY 




0294 


4407 


B0F3 




BHE 


MXTCHF; 


0295 


4409 


900 ft 


MOP 


BCC 


NXTITH 


0296 


440B 


AC7044 




LBY 


L 


0297 


440E ce 




INY 




0298 


440F 


203B44 




JSR 


RPLC 


0299 


4412 


4C3144 




JHP 


NXTJ 


0300 


4415 


AB7044 


NXTITH 


LBA 


L 


0301 


441B 0A 




ASL 


A 


0302 


4419 


A8 




TAY 




0303 


441A C8 




INY 




0304 


441B 


ce 




INY 




0305 


441C A5EE 




LBA 


LABR 


0306 


441E 990041 




STA 


TABL2,Y 


0307 


4421 


C8 




INY 




0308 


4422 


A5EF 




LBA 


LABR+1 


030? 


4424 


990041 




STA 


TABL2,Y 


0310 


4427 


CE7044 




DEC 


L 


0311 


442A 


10BE 




BPL 


LLP 


0312 


442C 


AOOO 




LDY 


MOO 


0313 


442E 


203D44 




JSR 


RPLC 


0314 


4431 


EE6F44 


NXTJ 


INC 


J 


0315 


4434 AB6F44 




LBA 


J 


0316 


4437 


CD6B44 




CMP 


NUHABR 


0317 


443A B09A 




Bf€ 


JLP 


0313 


443C 


60 




RTS 




0319 


44 3D 


98 


RPLC 


1YA 




0320 


443E 


OA 




ASL 


A 


0321 


443F 


A8 




TAY 




0322 


4440 


A5EC 




LBA 


KABR 


0323 


4442 


990041 




STA 


TABL2.Y 
KADR+i 


0324 


4445 


A5EB 




LBA 


0325 


4447 


ce 




IKY 




0326 


4448 


990041 




STA 


TABL2,Y 


0327 


444E 


60 . 




RTS 




0328 


444C 










0329 


444C 


AOOO 


HQVENT 


LDY 


«$00 


0i30 


444E 


B1FE 


HXTBT 


LBA 


(DIR).Y 
(TBLn.Y 


0331 


4450 


91FC 




STA 


0332 


4452 


ce 




INY 




0333 


4453 


C023 




CPY 


#$23 


0,534 


4455 


D0F7 




BNE 


NXTET 


0335 


4457 


60 




RTS 




0336 


4458 










033/ 


4458 




IOB 


EQ'J 


* 


0338 


4458 


01 


IBTYPE 


BC 


H'Ol' 


0339 


4459 


60 


I3SLQT 


BC 


H'60' 


0340 


445A 


01 


IBERVN 


BC 


H'Ol' 


0341 


4458 


00 


IBVOL 


BC 


H'OO' 


0342 


445C 


11 


IBTRK 


BC 


H'll' 


0343 


445D 


00 


IBSECT 


DC 


H'OO' 


0344 


445E 


6944 


IBDC1P 


BC 


A'DEVTPC 


0345 


4460 
4463 


002F00 
00 


IBBUFP 


BC 


H'0Q2FOOO0' 


0346 


4464 


00 


IBCMD 


BC 


H'OO-' 


0347 


4465 


i" *- f\ 


IB3TAT 


BC 


H'OO' 


0343 


4466 


00 


IBSMQD 


BC 


H'OO' 


0349 


4467 


60 


10EFSK 


BC 


H'60'"' 


0350 


4468 


01 


IOBPBN 


BC 


h 01' 


0351 


4469 
446C 


0001EF 
B3 


DEVI PC 


BC 


H0001EFB8' 


0352 


4'i.iB 


00 


N'JHADR 


BC 


H'OO' 


0352 


44iE 


00 


LSI BYT 


BC 


H'OO' 


0354 


446F 


00 


J 


BC 


H'OO' 



0355 


4470 00 


L 


BC 


H'OO 


0356 


4471 








0357 


4471 


t MESSAGE LIST: 




0358 


4471 








0359 


4471 C3C1B4 
4474 C1CCCF 


hSGTTL 


BC 


C CATALOG 
SORTER' 




4477 C7A0D3 








447A CFB2D4 










447B C5D2 








0360 


447F 00 




DC 


H'OO' 


0361 


4480 C2D9A0 
4483 CBC1D2 
4486 CBA0L8 
4489 C1D2B2 
448C C9B3 


HSGNH 


BC 


C'BY liARK 
HARRIS' 


0362 


448E 00 




BC 


H'OO' 


0363 


448F C9CEB3 
4492 C5B2B4 
4495 A0C4C9 
4498 B3CBA0 
449B B4CFA0 
449E C2C5A0 
44A1 CICCDO 
44A4 C8C1C2 
44A7 C5B4C9 
44AA BAC5C4 


MSGINS 


BC 


C INSERT BISK 
TG BE 
ALPHABETIZED' 


0364 


44AD 8B 




BC 


H'SB' 


0365 


44AE C9CEA0 
44B1 C4B2C9 
44B4 B6C5A0 
44B7 BlAOCl 
44BA CEC4A0 
44BD D0D2C5 
44C0 D3B3A0 
44C3 B2C5D4 
44C6 B5B2CE 
44C9 AEAEAE 




BC 


CIN DRIVE 1 
AND PRESS 
RETURft ' 


0366 


44CC 00 




DC 


H'OO' 


0367 


44CB D2C5CB 
44B0 CFB6C5 
44B3 A0B7D2 
44B6 C9B4C5 
44B9 ABB0D2 
44DC CF04C5 
44BF C3B4A0 
44E2 D4C1C2 
44E5 ACA0D4 
44EB C8C5CE 


HEGWP 


BC 


C'REKOUE 
WRITE-PRO! ECT 
TAB, THEN' 


0368 


44E8 00 




BC 


H'OO' 


0369 


44EC B0B2C5 
44EF B3B3A0 
44F2 C1CED9 
44F5 A0CBC5 
44F8 B9A0B4 
44FB CFA0C3 
44FE CFCED4 
4501 C9CEB5 
4504 C5AEAE 
4507 AE 


hSGPRESS 


BC 


C PRESS AMY 
KEY TC 
CONTINUE...' 


0370 


4508 00 




DC 


H'OO' 


0371 


4509 C9AFCF 
450C A0C5B2 
450F B2CFD2 
4512 AE 


HSGIQER 


BC 


C'I/0 ERROR.' 


0372 


4513 00 




BC 


H'OO' 


03/3 


4514 8B8B 


HSGfiGN 


BC 


H'8D3B' 


03/4 


4516 D3CF02 
4519 D4ACC1 
451C CECFD4 
451F C8C5B2 
4522 A0C4C9 
4525 B3CBBF 
4528 A0ABB9 
452B ACCEA9 
452E AO 




BC 


C'SORT 
ANOTHER BISK? 
(Y,N> '" 


0375 


452F 00 




BC 


H'OO' 


0376 


4530 






JUCftO 


0377 


4530 




END 
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Fast and restless. 

The new Delta- 15 printer kicks out AnyCalc, 

easy as 1,2,3! 



In a 9 to 5 world fiJII of changing spread- 
sheet data, you need a business printer that moves 
fast. A printer that constantly fires out printed infor- 
mation. A printer called Delta-15. 

Delta has the ability to print multi-copy 
spreadsheets at an intense 160 cps. Its throughput 
never rests. In fact , it never even wavers in speed. 
That means that Delta constantly fits the most work 
into every single second. 

Delta comes in a 10" or 15V2" carriage size. 
It offers you the flexibility of standard 8K parallel and 
serial interface. And has the ability to underline, 
accept macro instruction, and print characters that 
range from full graphics to everyday printing to sci- 
entific notations. 



Plus, as always, you get our unique 180 day 
warranty (90 days on print head). 

So for everyone who needs their spreadsheet 
data "yesterday," this is as close as you can come! 
The new fast and restless Delta-15 business printer 
from Star. 



micronics»inc 

THE POWER BEHIND THE PRINTED WORD. 

Computer Peripherals Division 

PO. Box 612186. Dallas/Ft. Worth Airport, TX 75261 (214) 456-OC 



Hi "IS *S 




. | 







1R.lc£v<iU7clec<**K*HU4Uc<xti6H4, 






d\a° 



5S £ - 



tfpj 



RTC 



*«*■' 



Call or write 
payments 
by VISA, 
MASTERCARD 
or BANK 
TRANSFER. 
Mailorders 
also by 
certified 
check, etc. 



Many more 64s 



W 




10610 BAYVIEW (Bayview Plaza) 
RICHMOND HILL, ONTARIO, CANADA L4C 3N8 
(416)884-4165 

C64-LINK 

The Smart 64 




RTC 



Cartridge 
Expansion Slot 



Switch 



Serial 
Audio I/O 
RF Video Port 



Cassette Port 



Users Port 




© 



u 



C64-LINK 



IEEE Disks 

(2031) (4040) 

(8050) (8250) 

(9090) 



VL16 



IEEE Printers 
(4022) (8023) 

(8300) 
etc. 



(future) 

Cartridge 

Mother Board 




Tape 




VIC Modem 



1541 Drive 

And 

1525 Printer 

or 1515 Printer 



or VL3 Cable 
to Parallel 
Printer 



EEEtoParallel 
Interface 

Parallel 
Devices 



IEEE to Serial 

Interface 

True Serial 

Devices 



or VL4 Cable 

to Standard 

Modem 



CP/M 



Give These Expanded 
Capabilities To Your 64 



^ 



>4\0 



POWER 

And 
PAL® 



Other 
Cartridges 



~k The ability to transfer data from any type of device to another (IEEE, Serial, 
Parallel) 

•k BASIC 4.0 which allows you to run more PET BASIC programs and gives you 
extended disk and I/O commands. 

-frThe ability to have several 64s on line together - sharing common IEEE 
devices such as disks or printers with Spooling Capability. 

it Built-in machine language monitor 

~k A built-in terminal or modem program which allows the system to communi- 
cate through a modem to many bulletin board systems and other computer 
mainframes. 



-k Compatibility with CP/M. 



Contact your local Commodore dealer or RTC. 



nin.'s^iffiffis 



Copyrights and Trademarks 

C64 is a copyright of Commodore Business Machines, 
Inc. C64-LINK is a copyright of Richvale Tele- 
communications. CP/M is a registered trademark of 
Digital Research. POWER is a trademark of Pro- 
fessional Software. PAL is a copyright of Brad 
Templeton. ___„ 
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Apple — 



Master Directory 

For The 

Apple 



By Charles Hill 

(Editor's note: 1 This program is much 
longer than we normally publish. Since 
we think this is such an outstanding 
program (similar commercial ventures 
sell for over $100), we are publishing it 
in two pieces. This month contains all 
the main routines for the menu and 
reading/writing the library file. Next 
month we will conclude the program 
with the print and sort routines.) 



It never fails. No matter how hard 
you try to keep your disk library in 
some semblance of rational order, it 
never seems to remain that way for 
long. Files that you know are on a par- 
ticular disk have disappeared, and 
others have mysteriously moved from 
one disk to another. If this sounds 
familiar to you, then here is the solu- 
tion. MASTER DIRECTORY allows 
you to create one large file directory 
containing all the CATALOGS of your 
disks. There is room for 64 disk IDs and 
1100 file names. This directory can be 
sorted and printed in a variety of ways 
and saved to disk for use later or by 
other programs. 

Operating Instructions 

To get started, simply type "BRUN 
MASTER DIRECTORY". The main 
menu will then be displayed — six op- 
tions are available. Press the key cor- 
responding to the number of your 
choice. If you make a mistake, press 
return as the next input and you will be 
returned to the menu. 

The first option is to read the in- 
No. 67 • December 1983 




dividual disk directories. The program 
can only read DOS 3.3 disks. Pascal 
and CP/M disks use a different direc- 
tory format and protected disks can't be 
read at all. To read the disk, insert it in 
drive one, enter the disk ID [1 to 8 
characters) and press return. When you 
have CATALOGed all your disks, press 
return to re-enter the main menu. 

The next two options allow the 
master directory to be saved to or read 
from the disk. Insert the disk into drive 
1 and enter the filename. Any DOS 
errors that occur will be trapped and 
the appropriate error message printed. 

Option 4 is for sorting the directory. 
A Shell-Metzner sort is used — it can 
sort 360 entries on two fields in nine 
seconds. To select the sort fields, enter 
the number next to the field name on 
the sort menu. One to three fields can 
be entered in any order. The first field 
entered is the most important descend- 
ing to the last entered being the least 
important. The sort returns to the main 
menu when finished. 

Printing the directory is the fifth op- 
tion. Similar to the sort, up to three 
fields can be entered for printing in any 
desired order. To select the field, enter 
the number of the field from the sort 
mini-menu. A page eject is issued after 
each 65 lines. Be sure that top-of-form 
is set to the top of the page before 
printing. If this is not done, page 
breaks will occurr during the middle of 

MICRO 



a page. This routine also returns to the 
main menu. 

The last option restores normal 
DOS and does a BASIC cold-start. 

The Program 

The program doesn't have a search 
function because in the time taken to 
load the directory and find the desired 
file name will take longer than to look 
it up in an alphabetized list kept next to 
your Apple. I keep one of these lists 
handy at all times. It has proven an in- 
valuable time saver. 

The first step is to set MAXFILES 
equal to 1. Modifications are made to 
DOS to allow direct access through use 
of machine language. This technique 
was described by William Reynolds III 
in his article Using Text Files From 
Machine Language in NIBBLE (2:2). 
Another modification allows the in- 
terception of DOS errors after the error 
message has been printed. The menu 
box is then set up and protected by 
lowering the top of the text screen. 
HIMEM is then lowered by 32 bytes to 
prevent overwriting DOS. The main 
loop is entered and a keypress is 
checked for to choose the correct 
subroutine. After completion of the 
main program, DOS is restored to it's 
original condition and the program 

jumps to BASIC. 

(Continued on next page) 
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The routine to read the CATALOG 
first zeroes the disk ID buffer. Each 
disk ID is stored in this buffer with an 
index to this name stored with each 
filename. The reading of individual en- 
tries is simple — consecutive directory 
sectors are read and processed. Each en- 
try is checked to see if it was deleted or 
the end of the directory. When a good 
entry is found, the disk index, file type 
and file name are copied into the name 
buffer. The buffer pointer is in- 
cremented and a memory check is done 
with appropriate error handling. Then 
the next entry is read. 

The routines to read and save the 
name file on disk enter the values nor- 
mally set by BSAVE and BLOAD. Drive 
1 is defaulted in the program, however, 
this may be changed. You may wonder 
why I use DOS directly rather than 
printing the commands (preceded by 
CTRL-D) to execute them. The reason 
is that DOS stores the letters of a com- 
mand being printed in the input buffer 
at $200. Since this is the buffer where I 
was reading the filename from while it 
was being printed, some very strange 
conflicts occurred. This problem took 
some time to find, but the new arrange- 
ment works perfectly. One item not 



mentioned in Reynold's article is that 
the KEY WORDS FOUND byte at 
$AA65 must be set appropriately for 
some routines to work correctly. The 
following is a list of these values 
(Table 1): 



KEYWORD 


VALUE 


C 




$C0 


■;?:.-.i;-' 




$A0 


O 




$90 


" V 




$40 


D 




$20 


S 




$10 


L 




$08 


R 




$04 


B 




$02 


A 


TABLE I. 


$01 



For example, with the BSAVE com- 
mand, both the Address and Length 
parameters must be specified, so $08 + 
$01 = $09. On the other hand, no 
parameters need be specified with a 
BLOAD, so the value is $00. 

The Shell-Metzner sort has ap- 
peared innumerable times with full ex- 



RIM + POWER 
COMPUTECH 



Check the 

outstanding 

documentation 

supplied with 
AIM65 



from 

All prices 
Postpaid 

(Continental 
U.S. - 
otherwise 
$2 credit) 

Top quality power supply designed to Rockwell's specs for fully 
populated AIM 65 — includes overvoltage protection, transient 
suppression, metal case and power cable: 
PSSBC-A (5V 2A Reg; 24V .5A Avg, 2.5A Peak, Unreg) ...$64.95 
Same but an extra AMP at 5 volts to drive your extra boards: 
PSSBC-3 (5V 3A Reg; 24V .5A Avg, 2.5A Peak, unreg) ...$74.95 

The professional's choice in microcomputers: 

AIM65/1 K RAM $429.95 BASIC (2 ROMS) $59.95 

AIM65/4KRAM $464.95 ASSEMBLER (1 ROM) ..$32.95 

FORTH (2 ROMS) $59.95. 

SAVE EVEN MORE ON COMBINATIONS 

AIM65/1K + PSSBC-A .$479.95 AIM65/4K+PSSBC-3 .$524.95 

We gladly quote on all AIM65/40 and RM65 items as well. 
amgm ORDERS: (714) 369-1084 

UHm P.O. Box 20054 • Riverside, CA 92516 

California residents add 6% sales tax 



plainations in MICRO and other 
magazines, so I won't go into any detail 
here. The only part I will mention is 
the comparison of Disk IDs. For the file 
type and name, a direct comparison is 
made in the entries in the file names 
buffer. The disk ID is a single number 
of no alphabetic significance. It must 
first be converted to an address in the 
disk ID buffer. The IDs then pointed at 
are compared and a swap of the entries 
in the buffer made, if needed. The disk 
IDs are never reordered, they stay in 
the buffer in their original entry order 
and are accessed by pointer only. 

There is a ROM multiply routine 
that I recently discovered that may be 
of use in your own programming. Put 
the numbers to be multiplied in $64,65 
and $AD,AE. After calling $E2B8, the 
result returns in the X register (low) 
and Y register (high) . 

After getting the numbers cor- 
responding for the fields to be printed, 
the print routine converts these 
numbers to a range of 0-2. This value is 
used to test which field to print. The 
printer is initialized with a "PR#1". If 
your printer requires additional ini- 
tialization, you will have to insert this 
code into the routine or it may be possi- 
ble to initialize the printer before run- 
ning the MASTER DIRECTORY pro- 
gram. The needed titles are printed and 
the fields are printed centered under 
the titles. The disk ID and file name are 
copied directly from the buffer. The file 
type is printed by borrowing some code 
from DOS at $ADDB with some 
changes so that LISA files are indicated 
with an "L". When the printing is 
finished, a "PR#0" disconnects 
the printer. 

Modifications 

One useful modification would be 
to write additional CATALOG read 
subroutines that could read Pascal, 
CP/M, Flex or OS9 directories. The 
code is not that complex so that chang- 
ing the tracks /sectors and bytes read 
should be straightforward. If you need 
more information — the file size, disk 
volume number, free space remaining 
or other parameters — it can be read 
from the disk, stored and printed. 
Those of you with a 16K (or larger) 
RAM card can increase the buffer size 
by expanding into the additional RAM. 



You may contact Charles Hill at 226 
Park St , Brandon, Manitoba Canada 
R7A 5M3 
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DOCOMND 


EQU *A1B6 


; ROUTINE TO DO DOS 
COMMAND 








COMND 


EQU $AA5F 


:DOS COMMAND 








BLANKNAM EQU $A095 


-.ROUTINE TO BLANK 








VTAB 
ROMULT 


EQU *FC24 
EQU $E2BE 


NAME BUFFER 

iVTAB ROUTINE 

;ROM MULTIPLY ROUTINE 


Master Directory 






requires: 




MAXFILES EQU $A258 


; MAXFILES ROUTINE 




Apple II with DOS 


SETINO 
SETOUTO 


EQU $FE8? 

EQU $FE?3 


;D0 IN«0 
?D0 PRttO 








SETOUT 
* 

1 WORK 
* 

IDBUFR 
NUMBER 


EQU *FE95 


;DQ PRttSLOT 








ING DEFINITIONS 

EQU $OEFO 

EQU IDBUFR-$02 


;DISK ID BUFFER 
; NUMBER. OF ENTRIES 








1 d MAS 


fER DIRECTORY 








IN. BUFFERS 


* BY CHARLES HILL 




NAMEBUFR EQU IDBUFR+$0200 


;FILE NAMES BUFFER 


* MICRO 


INK 




INBUFF 


EQU $0200 


; INPUT BUFFER 


* AMHER' 


11. NH 03031 




MAXLINE 


EQU 65 


; NUMBER OF LINES PER 


* 










PRINTED PAGE 


* ZERf 


3 PAGE DEFINITIONS 




t 






BUFFER 


EPZ $EE 


; DIRECTORY BUFFER 


* MAIN PROGRAM 








POINTER 


* 






UINJQP 
PROMPT 


EPZ $22 
EPZ $33 


;TQP OF TEXT WINDOW 
; INPUT PROMPT 




JSR MENU 
SEC 


:3ET UP THE SCREEN 
•SET HIMEM TO POINT 


MAX 


EPZ $F0 


;SORT VARIABLES 






BELOW ACTUAL HIMEM 


J 


EPZ *F2 






LDA $73 




k 


EPZ $F4 


; v 




SBC *$20 




HF'TR 


EPZ $F6 






STA HIMEM 




VPTR 


EPZ $F8 






LDA $74 




H 


EPZ *FA 






SBC 80 




V 


EPZ $FC 






STA HIMEM+1 




FLDPOS 


EPZ $EA 


: FIELD POSITION TABLE 
(1.2.35 FOR SORT 




LDA r>" 
STA PROMPT 










COMMAND 


JSR HOME 


{DETERMINE DESIRED 


IDfcUFFR 


EPZ $FE 


;DISK ID BUFFER 






ROUTINE AND JUMP TO 






POINTER 




LDA r>" 


IT 


CV 


EPZ $25 


: VERTICAL CURSOR POS. 




JSR COUT 




CH 


EPZ $24 


; HORIZONTAL CURSOR 
POS. 




JSR RDKEY 
CMP «"1" 




'IUMIDS 


EPZ *F0 


DUMBER OF DISK ID'S 




BNE ?1 

JMP SCANDISK 

CMP «"2" 




FLDPTR 


EPZ *E9 


; POINTER TO FLDPOS 
TABLE 


*1 












9NE >2 




MAXMY 


EPZ $E3 


; MAXIMUM Y VALUE 




JMP SAVECAT 




COUNT 


EPZ $F0 


■NUMBER OF NAMES 


*2 


win un t ^u* * > 

CMP tt"3" 








USED BY PRINT 




BNE )3 




NUMLINES 


EPZ $F2 


;it OF LINES PRINTED 




JMP READCAT 




PRINTFLD 


EPZ $EA 


; TABLE OF PRINT 
FIELDS 


*3 


CMP »"4" 
BNE >4 




PRNTBUF 

HIMEM 

* 

* ROM 

t 

CRQUT 

RDKEY 


EPZ $F4 
EPZ $E£ 


;TEXT POINTER 


*4 


JMP SORTCAT 
CMP *"5" 
BNE )5 




AND DOS DEFINITIONS 




*5 


JMP PRINTCAT 
CMP «"6" 




EQU $FD8E 
EQU $FDOC 


; CARRIAGE RETURN 
;GET A KEYPRESS 




BNE COMMAND 
LDA »$00 
STA WINTQP 
JSR HOME 
LDA »$A5 
STA $A851 
LDA «$A2 


;SET FULL WINDOW 


HOME 


EQU $FC58 


; GUESS WHAT? 






GETLNZ 


EQU $FD47 


-.GET INPUT LINE 






GOUT 
RLSCTR 


EQU »FDED 
EQU *B011 


; PRINT CHAR. INA REG. 
;READ A DISK SECTOR 




• T RESTORE NORMAL DOS 


DIRIDX 


EQU $B3?C 


j INDEX INTO DIRECTORY 






HIRBGN 


EQU $B4C6 


; START OF DIRECTORY 
ENTRIES 




STA $?EEO 
LDA #$20 




RDVTOC 


EQU $AFF7 


iREAD VTOC ROUTINE 




STA $A6EF 
LDA »$51 
STA $A6F0 




NXTQNE 


EQU $B230 


•ROUTINE TO ADVANCE 










DIRECTORY INDEX 




LDA i$A8 




BQSHAME 


EQU $AA75 


•.NAME BUFFER FOR DOS 




STA 4A6F1 




VOL 


EQU $AA66 


{PARAMETERS FOR DOS 




-Jin fnUI X 

JMP $03D3 


; COLD-START DOS 


DRIVE 


EQU $AA68 




% 






SLOT 


EQU $AA6A 




t ROUTINE TO READ CATALOG 




LEN 


EQU IAA6C 




% 






ADBR EQU $AA72 
KYWRDFND EQU $AA65 


; KEYWORDS FOUND BYTE 


SCANDISK LDA t»$31 
STA $502 


;INV "1" 
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— n HI 


LDA KO 






LDY /IDTBL 






STA NUMBER 


; ZERO NUMBER OF 




JSR PRINTMES 






STA NUMBER+1 


;FILE NAMES 




JSR GETLNZ 


;GET ID 




LDA KNAMEBUFR 






INC NUMIDS 


;INC NUMBER OF IDS 




STA BUFFER 


;SET BUFFER POINTERS 




LDA NUMIDS 


■, POINT TO FREE AREA 




LDA /NAMEB'JFP 






JSR POINTID 






STA BUFFER+1 






LDY ttO 


;MOVE DISK ID TO 




LDA tt$FF 
STA NUMIDS 


;ZERO NUMBER OF DISK IDS 


*2 


LDA INBUFF.Y 


IT'S BUFFER 




LDA MAO 


j BLANK DISK ID BUFFER 




CMP »$8D 


;TEST FOR END OF LINE 




LDY RO 






BEQ )1 




*1 


STA IDBUFR.Y 






STA (IDBUFFR),Y 






STA IBBUFR+$0100,Y 




INY 






INY 






CPY »$08 


■JEST FOR END GF ID 




BNE (1 






BNE <2 




NEXTBIS* 


; JSR HOME 




*1 


CPY »$01 


;TE3T FOR NO ID (RTN 




JSR GETID 


;GET ID FOR DISK 






' FIRST CHAR. ) 




BCS >1 


; BRANCH IF ID ENTERED 




RTS 




*4 
*1 


LDA tt$Bl 
STA $502 
JMP COMMAND 
JSR RD'v'TOC 


;NORM "1" 
;READ VTDC 


IDTBL 


ASC "INSERT DISK 
HEX 8D 

ASC "JUST PRESS- 
HEX 8DO0 


f AND ENTER ID" 
RETURN TO EXIT" 




CLC 


-.SET TO READ FIRST SECTOR 


t 

* ROUT IN 
t 




RBSECT 


JSR RDSCTR 
BCS NEXTDISK 


;AND READ IT 

; CHECK FOR END OF DIRECTORY 


E TO SAVE CATALOG TO DISK 






SECTORS 


SAVECAT 


LDA »$32 


;INV "2" 




LDX H$00 






STA $582 




NXTNAH 


STX DIRIDX 


; RESET DIR. INDEX 




JSR HOME 






LDA BIRBGN.X 
BEQ NEXTDISK 


-.GET FIRST BYTE OF THIS ENTRY 




JSR GETNAME 


;GET FILENAME 




; CHECK FOR END OF DIRECTORY 




TXA 






BMI NXTENT 


■CHECK FOR DELETED ENTRY 




BEQ >2 






LDY tt$00 






LDA H43 


;BSAVE COMMAND 




LDA NUMIDS 


;GET DISK ID NUMBER 




STA CQMND 






STA (BUFFER),! 


; STORE IT WITH NAME 




LDA tt$09 


-.SET KEYWORDS FOUND 




INX 


■ ADVANCE POINTER TO FILE 






BITS TO 






TYPE 




STA KYWRBFND 


;SHOW 'A' AND 'L' 


-1 


INX 


;MOVE FILE TYPE AND NAME 






PARAMETERS 




INY 






LDX NUMBER 


■SET LENGTH PARAMETER 




LDA BIRBGN.X 






LDY NUMBER+1 


;GET LENGTH OF NAME 




STA ( BUFFER >,Y 








AREA 




CF'Y MIF 






JSR MULT 






BNE (1 






CLC 






INC NUMBER 


INCREMENT NUMBER OF 




TXA 






♦ 


ENTRIES 




ADC »$03 


;ADD LENGTH OF 




BNE )2 








NUMBER OF ENTRIES 


A 2 


INC NUMBER+1 

CLC 

LDA BUFFER 


{INCREMENT BUFFER 
POINTERS 




STA LEN 
TYA 

ADC »$02 
STA LEN+1 


-.AND DISK ID AREA 




ADC tt$20 






JSR DOCOMND 


;AND DO IT! 




STA BUFFER 




*2 


LDA tt$B2 


;NORM "2" 




BCC >1 

INC BUFFER+1 






STA $5e2 








t 

* ROUT If 

* 

READCAT 


JMF COMMAND 




*1 


LDA BUFFER 


■.CHECK FOR OUT OF 
MEMORY 


JE TO READ CATALOG 


FILE 




CHP HIMEM 
LDA BUFFER+1 
SBC HIMEM+i 
3LT NXTENT 
LDX ttOUTBL 


;YES WE ARE 


LDA tt$33 
STA $602 
JSR HOME 
JSR GETNAME 
TXA 
BEQ >1 


;INV "3" 
:GET FILENAME 




LDY /OUTBL 










JSR PRINTMES 










JSR FDKEY 






LDA SO 






W W 1 -. 1'ilVIMv 1 

JMF (4 
HEX 8787 






STA KYWRBFND 




OUTBL 






LDA 850 


; BLQAD COMMAND 




ASC "OUT OF MEMORY!" 
HEX 378DO0 




STA COMND 
JSR DOCOMND 


;D0 IT 


NXTENT 


JSR NXTONE 
BCS RDSECT 


;POINT TO NEXT FILE 
ENTRY 
■NO MORE SO READ NEXT 


*1 
t 


LDA «$63 
STA $602 
JMP COMMAND 


;NQRM "3" 






SECTOR 


t ROUTINE TO HANDLE DISK 


ERRORS 




BCC NXTNAM 


;MORE IN THIS SECTOR 


t 






t 






DISKERR 


LDX 8ERRMESS 


;PRINT MESSAGE 


t ROUTINE TO GET DISK 


ID 




LDY /ERRMESS 




* 








JSR PRINTMES 




GETID 


LDX KIDTBL 


; REQUEST ID 




JSR RDKEY 


;WAIT FOR KEYPRESS 
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Time for your computer to make the telephone con- 
nection - with an intelligent, fiill 21 2 A 300/1200 
baud modem - with a real time clock/calendar - 
and with the capability to expand into a com- 
plete telecommunications system. It's time for 
PRO-MODEM 1200. Much more than just a phone 
modem. 

When you're on-line, time is money. PRO-MODEM 
telecommunication systems help you save. By 
monitoring the duration and cost of your phone 
calls. And by sending and receiving messages, 
unattended, at preset times when the rates are 
lower. . . with or without your computer. 

Compare the S495 PRO-MODEM 1 200 with any other 
modem on the market. For example, you'd have to 
buy both the Hayes Smartmodem 1200 plus their 
Chronograph for about S950 to get a modem with 
time base. 

PRO-MODEM 1200 is easy to use. A convenient 
"Help" command displays the Menu of operating 
command choices for quick reference whenever 
there's a question about what to do next. Extensive 
internal and remote self-diagnostics assure that the 
system is operating properly. Some of the other 
standard features include Auto Answer, Touch 
Tone and Pulse Dialing, and Programmable Intelli- 
gent Dialing. 



PRO-MODEM does more. It lets you build a full tele- 
communications system with features like Auto 
Dialer, Incoming and Outgoing Message Buffering, 
Business/Personal Phone Directory, Program- 
mable Operating Instructions, a 12-Character 
Alpha-Numeric Time and Message Display, and 
versatile PRO-COM Software. PRO-MODEM com- 
mands are Hayes compatible so you can use most 
existing telecommunications software without 
modification. 

There's much more to the PRO-MODEM story. See 
your local dealer for complete details. He'll show 
you how to save time. And money. 

Prometheus Products, Inc., 45277 Fremont Blvd., 
Fremont C A 94538, (41 5) 490-2370 
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fcTeteVideo 




TERMINALS 

910 $559 00 

912 $689 00 

920 $739.00 

925 $719.00 

950 $929.00 

970 $1069.00 

COMPUTERS 

800A $1 099.00 

802 $2699.00 

803 $1949.00 

802 H $4695 .00 

806/20 $4999.00 

81 6/40 $91 99.00 

1602 .$3399.00 

1603 CALL 



MO OEMS 

HAYES 

Sman 

Smart 1200 (1200 Baud) ... 

Chronograph 

Micromodem 100 

Micromodem II 

Micromodem II (with term) . . . 

Smart Com II 

Smart 1200B 

NOVATION 

J-Cat 

Cat 

D-Cat 

103 Smart Cat 

Apple Cat II 

103/21 2 Smart Cat 

212 Apple Cat II 

Apple Cat 1 1 21 2 Upgrade. . 
ANCHOR 

MarK I (RS-232) 

MarK II (Atari) 

Mark III (T..I. 99) 

Mark IV (CBM-PET) 

Mark V (Osborne) 

Mark VI (IBM-PC) 

Mark VII (Auto Ans/Auto Dial) 
Mark VIII 

TRS-80 Color Computer . 
9 Volt Power Supply 



$219.00 
$509.00 
$199.00 
$309.00 
$279.00 
$299 00 
$99.00 
$469.00 

$119.00 
$144.00 
$159.00 
$189.00 
$279.00 
$439.00 
$609.00 
$309.00 



$79.00 

$79.00 
$109.00 
$125.00 

$95.00 
$179 00 
$119.00 
$269.00 

$99.00 
...$9.00 



ZENITH 

ZT1 Terminal .$369.00 




HEWLETT 
PACKARD 



HP75 $749.00 

HP41C $149.00 

HP41CV $209.00 

HP41CX $259.00 

HP 10C $52.00 

HP 1 1 C $69.00 

HP 12C $92.00 

HP15C $92.00 

HP 16C $92.00 

For HP41/41CV 

HPIL Module $99.00 

HP1L Cassette or Printer $359.00 

Card Reader $144. 00 

Extended Functions Module . . -S64.O0 
Time Module $64.00 




HE-1 $1369.00 

ME-2 $1649.00 

IIE-3 $2399.00 

ME-4 $3199.00 

PC E $1579.00 

PC-1 $2399.00 

PC-2 $2799.00 

PC-XL $3599.00 

1620 $3599.00 

1 630 $5499.00 

1 640 $6499.00 

Cyma Software CALL 

MONITORS 

AMOEK 

300G $149. 00 

300A $1 59.00 

310A $169.00 

Color I $279.00 

Color II $399 00 

Color III $349.00 

Color IV $999.00 

USI 

Pi 1. 9 G $99.00 

Pi 2. 12" G $119.00 

Pi 3. 12" A $149.00 

Pi 4. 9" A $139.00 

1 400 Color $299.00 

ZENITH 

2VM 1 22A $109.00 

ZVM 1 23G $99.00 

BMC 

12 Green $85.00 

9191 AU 13" Color $249.00 

TAXAN 

12 N Green $129.00 

12 A Amber $139.00 

12 RGB I S299.00 

JB 1260 C $119.00 

JB 1201 $149.00 

JB 1205 $169.00 

JC 1215 $299.00 

JC 1216 $429.00 

JC 1 203 $469.00 

GORILLA 

1 2" Amber $95.00 

12" Green $89.00 




PC-1500A 
£163 
SHARP PC-1250A 
S8S 

POCKET COMPUTERS 

CE-125 Printer/Cass. Int.. .. $1 29.00 
CE-1 50 Color Print./Cass. Int. ... $172.00 

CE-1 55 8K RAM $94.00 

CE-1 61 16K RAM $135.O0 

CE-500 ROM Library ...each S39.00 

Texas Instruments 
TI-40 S209 

CALL FOR PRICING ON 

TIMEXSINCLAin 1 OOO 

16K Memory $44.95 

2040 Printer $99.95 

Vu'Calc $1 7.95 

Mindware Printer $99.00 




NEC 3550 Printar....S1799 

PERCOM/TAIMOON 

ORIVES 

5'/«" 320K Floppy $249.00 

5 Meg Hard w/Controller. . . $ 1 399.00 
10 Meg Hard w/Controller ... $ 1 699.00 
1 5 Meg Hard w/Controller . . . $2095.00 
20 Meg Hard w/Controller. . . $2399.00 
AMOEK 

31 OA Amber Monitor $169.00 

DXY 100 Plotter $599.00 

Color II $399.00 

AST RESEARCH, INC. 

Six Pak Plus. ..from $279.00 

Combo Plus II. ..from.. $279.00 

Mega Plus. ..from $309.00 

I/O Plus II. ..from S139.00 

QUADRAM 

Ouadlink $549.00 

Ouadboard...aslowas. . . $309. OO 
Ouad 51 2 Plus...as low as...$259.00 
Ouadcolor...aslowas ...$219.00 

Chronograph $89.00 

Parallel Interlace Board . . . $89.00 
64K RAM Chips Kit $69.00 

MICRO PRO 

Word Star/Mat) Merge $369.00 

InfoStar $299 00 

Spell Star $1 59.00 

CallStar $159 00 

MICROSTUF 
Crosstalk $129.00 

MICROSOFT 

Multiplan $179.00 

ASHTON-TATE 

0- Base II $419.00 

IUS 

EasyWriter II $21 9.00 

EasySpeller $119.00 

EasyFiler $239.00 

CONTINENTAL SOFTWARE 

1st Class Mail/Form Letter . $79.00 

TheHomeAccountantPlus . $99.00 

SYNAPSE 

File Manager $89.00 

LOTUS 

123 $329.00 

PFS 

APPLE IBM 

File $79.00 $89.00 

Report $79.00 $79.00 

Graph $79.00 $89.00 

Write n/a $89.00 

KPAFT 

IBM Joystick $55.00 

IBM Paddles $39.00 

PROFESSIONAL SOFTWARE 

PC Plus Word Processing . $299.00 

KOALA 

Koala Pad 

Apple $85.00 

IBM $95.00 

Atari $75.00 

CBM 64 $75.O0 



PAPER SUPPLIES 

1or2"Address Labels(Tract.Feed)..$9.95 
15" Report PaperfTract Feed) . . $24.95 
8"j Blnk wht PaperfTract. Feed). $1 9.95 



j$ SANYO 




MBC-550PC T7V.JCALL 

MBC-555PC CALL 

MBC 1 100 $1599.00 

MBC 1150 S 2 099 00 

MBC 1200 $199900 

MBC 1250 $2399.00 

FDD 3200-320K Drive . .$399.00 
FDD 6400-64K Drive $499 00 

PR 5500 Pnnter $699.00 

PRINTERS 

EPSON 

MX80 FT. MX100. RX80. 

FX80. FX100 CALL 

OKIOATA 

82. 83. 84. 92. 93 CALL 

STAR 

Delta 1 $559.00 

Gemini 10X $299.00 

Gemini P15 $449.00 

Serial Board $75.00 

SMITH CORONA 

TP-2 $469.00 

Tractor Feed $1 19.00 

C.ITOH 

Gorilla $209.00 

Prowriter 85 1 OP $379.00 

Prownter 1 550P $689 00 

Starwriter F10-40P $1 149.00 

Prinlmaster F10-55P $1549.00 

Tractor Feed $199.00 

□ AISY WRITER 

2000 Letter Quality $1049.00 

2500... NEW CALL 

Tractor Feed $109.00 

DIABLO 

620 $949.00 

630 $1749.00 

IOS 

Call for ALL Conligurations on 

IDS PRISM PRINTERS. 

NEC 

8023 AN $399.00 

8025 $729.00 

3510 $1449.00 

3530 $1499.00 

3550 $1799.00 

7710/7730 $1949.00 

BMC 

401 Letter Quality $699.00 

BX-80 Dot Matrix $259.00 

COMREX 

Comwriterll Parallel Printer. . . $549. 0C 

MANNSEMAN TALLY 

Spirit 80 $31 9.O0 

MT-1 60L $589.00 

MT-1 SOL $829.00 

TRANSTAR CALL 

TOSHIBA CALL 

CABLES & CONNECTIONS 

Atari to Parallel $29.00 

Atari to Serial $29.00 

Apple to Parallel $69.00 

Apple to Parallel/Graphics .$99.00 
Apple to Serial $89 00 

IBM to Parallel $35.00 

IBM to Serial $29.00 

Parallel to Parallel $29 00 

Serial to Serial $29.00 

Grappler Plus $129.00 

PKAS0 $139.00 

Atari to Modem Cable $29.00 

CBM 64 to IEEE Board $79.00 

Apple 80- Column Card $1 59.00 

CBM Pet to Parallel $99 00 

CBM Pet to Serial $89.00 



t-300.648.53ff 1-800 -268 • 4559 f-800-255-8950 



In PA call (71 7)327-9575, Dept. 1 21 5 
477 E. Third St. Williamsport, PA 17701 
Order Status #: 327-9576 



In NVcall (702)588-5654, Dept. 1215 In Toronto call (416)828-0866, Dept. 1215 In PA call (717)327-9575, Dept. 1215 

IPO. Box 6689, Stateline, NV 89449 2505 Ounwin Ct.,Unit 1 B, 477 E. Third St. Williamsport, PA 1 7701 

Order Status #: 588-5654 Mississauga, Ontario, Canada LSLITI Order Status #: 327-9576 

Order Status #: 828-0866 
No risk, no deposit on C.0.0. orders. Pre-paid orders receive free shipping within the UPS Continental United States with no waiting period tor certified 
checks or money orders. Add 3% (minimum S5.00) shipping and handling on all C.O.D. and credit card orders. Larger shipments may require additional 
charges. NV and PA residents add sales tax. All items subject to availability and price change. We stock manufacturer's and third party software for most all 
computers on the market. Call today for our new catalog. 



P FRANKLIN 




COLOR COMPUTERS 
ACE 1000. ACE 1 200. ACE 1 200 OMS. 
ACE 11 00 PRO PACK: ACE 1000. ACE 
1 Drive & Controller. 80 Column Card. 

ACECalc 1 ACEWriler CALL 

APPLE lie STARTER PACK 
&4K Apple He. Disk Drive and Controller, 
80 Column Card & Monitor III... 
COMPLETE $1599.00 

MICRO-SCI 

Apple & Franklin 

A2 $219.00 

A40 $299.00 

A70 $319.00 

C2 Controller $79.00 

C47 Controller $89.00 

RANA 

Elite I (Apple/ Franklin) $279.00 

Elite II (Apple/ Franklin) . $319.00 

Elite HI (Apple/Franklin) . $569.00 

VISICQRP 

FOR APPLE. IBM & FRANKLIN 

Visidex $189.00 

Visifile $189.00 

Visiplot $159.00 

Visiterm $89.00 

Visitrend/Plot $229.00 

VisiSchedule $229.00 

Desktop Plan $189.00 

Visicalc 4 (IBM) $169.00 

Visicalc Advanced lie $309.00 

Stretch Calc $89. OO 

Visicorp prices for IBM may vary slightly. 
LJK 

Letter Perfect Apple $109.00 

Data Perfect Apple $75.00 

AXLON 
Apple/ Franklin 128KRam . ..$299.00 
Apple/ Franklin Ram Disk . . .$729.00 

MPC 

Bubdisk (1 28K Non Volttare) . . . $649. OO 

WICO 

Joystick $2195 

Famous Red Ball $23.95 

Power Grip $21 .95 

Three Way Deluxe $22 95 

Atari/VIC Trackball $34.95 

Apple Trackball $59.95 

KRAFT 

Atari Single Fire $13.00 

Atari Switch Hitter $1 6.00 

Apple Joystick $44.00 

Apple Paddles $39.00 



PUTERMAItOBDIR 



APPLE/FRANKLIN 

1 . Choplifter S27.00 

2. Bank Street Writer $55.00 

3. PFS: File $8900 

4 Visicalc $1 79.00 

5. Home Accountant $55-00 

6. Zaxxon $29.00 

7. Most Amazing Thing $28.00 

8. Visifile $189.00 

9. Fathoms 40 $19.00 

10. Deadline $35. OO 

11 PFS: Report $89 00 

12. Zork III $29.00 

13. Frogger $24. OO 

14. Facemaker $24.00 

15. Snooper Troops 1 $32.00 

16. Delta Drawing $35.00 

17. Castle Wolfenstine $24.00 

18. Wayout $29.00 

19. Canyon Climber $19.00 

20. Bandits $26.00 



£t commodore 

CBM 
S032 

CBM64 ...$219 
VIC SO $89 

CALL ON 

Executive 64 Portable 

1520ColorPnnter/Plotter . $169.00 

1525 80 Column Printer $219.00 

1 530 Datasette $69.00 

1541 Single Disk Drive ... $249.00 

I 600 VIC Modem $59 00 

1650 AD/AA Modem $89.00 

1702 14 1 Color Monitor .. $249.00 

Pet 64 $569 00 

Pet 4032 $599 00 

CBM 8032 $599 00 

Super Pet $999.00 

B128-80 $769.00 

2031 $299 00 

8050 $949 00 

8250 $1 199 00 

9060 $1999.00 

9090 $2199.00 

4023 $379.00 

6400 $1399.00 

64K Upgrade $269 00 

Spell Master $149 00 

Z-Ram $549.00 

Silicon Office $749.00 

The Manager $209.00 

Soft Rom $129.00 

Jmsam CALL 

CalcResult 64 $1 39.00 

CodeWnler 64 $75.00 

VistCalc $169.00 

PROFESSIONAL 

SOFTWARE 

Word Pro 2 Plus $159.00 

Word Pro 3 Plus $18900 

Word Pro 4 Plus $279.00 

Word Pro 5 Plus $279. OO 

Into Pro .$179.00 

Administrator $399.00 

Power $79.00 

Word Pro 64 Plus $65.00 

CARDCD 
for VIC 2Q/64 

Light Pen $32.00 

Cassette Interface $2900 

Parallel Printer Interface $69. OO 

3SlotExpans. Interface (20). ..$32.00 
6 Slot Expans. Interface (20)... $79. OO 

C.M.O. 

CBM B4 

1 . Word Pro 64 $6500 

2. Jumpman $29.00 

3. Sod (20/64) $1 4.95 

4. Microspec Data Base 64 ...$69. DO 

5. Logo 64 $39. OO 

6. Microspec Gen. Ledger 64. . .$79.00 

7. Zork III $2900 

8. Frogger (64) $23. OO 

9. Ouick Brown Fox (20/64I . . . $49.00 

10. Shamus $29. OO 

I I . Deadline $29.00 

12. Assembler 64 $14.95 

13. Zork II $29.00 

14. 3-D Man $14.00 

15. Protector $32. OO 

16. Starcross $29. OO 

17 Easy Mail 64 $14.95 

18 Grave Robber SHOO 

19 Wall Street $19.00 

20 Trash Man $32.00 



HOME COMPUTEI 



ATARI 




ATARI 600XL S1 49 

ATARI BOOXL $263 

ATARI 1 200XL CALL 



ATARI 400 ... 
ATARI SOO ... 

1010 Program Recoraer $74 00 

1020 40 Col Printer/Plotter $249 00 

1025 80 Col Printer $449 00 

1027 LetlerOuality Printer . . $299.00 
1050 Disk Drive $379. OO 

1030 Direct Connect Modem . CALL 

CX30 Paddles $12 00 

CX40 Joystick $8.00 

CX42 Remote Joystick CALL 

CX77 Touch Tablet $69.00 

CX80 Trak Ball $49. OO 

CX85 Keypad $105.00 

CX418 Home Manager $69.00 

CX488 Communicator II . . $229.00 
KX7098 Atari Accountant $209.00 

KX710I Entertainer $69.00 

KX7102 Arcade Champ $75.00 

ALIEN 

Atari Voice Box $11 9.00 

Apple Voice Box $1 49.00 

MEMORY BOARDS 

A*lon 32K Ram $59.00 

Axlon48K Ram $99.00 

Axlon 1 28K Ram $299.00 

Intec 32K Board $59.00 

Intec 4SK Board $85.00 

Intec 64K Board (4O0 onlyl . $99 00 

Intec Real Time Clock $39.00 

DISK Si CART HOLDERS 

Flip-nFile 10 $400 

Flip-nFile 50 $1 9.00 

Flip-n-File 400/800 Cart $19.00 



CALL 
CALL 



PEFCCM 



AT 88-S1 $32900 I 

AT 88-A2 $269. OO I 

AT 88-S2 $569.00 I 

AT 88-S 1 PD $469.00 I 

AT88-DDA $145.00 I 

RFD40-S1 $449.00 I 

RFD 40-A1 $279.00 I 

RFD 40-S2 $729.00 I 

RFD 44-S1 $539. OO I 

RFD 44-S2 $889.00 I 

TX 99-S1 (Texas Inst. I S279.00| 

RANA 
1000 Atari Disk Drive $319.O0 ■ 

TRAX 
AT-D2 CALL | 

FLOPPY DISKS 

MAXELL 

MD-I $29.00 

MD-2 $39. OO 

FD-118") $40. OO 

FO-2(8" DS DDI $5000 

ELEPHANT 

5V."SS SD $18.50 

5V. ' SSDD $24.95 

5V. DS DD $29.95 

VERBATUM 

5V. ■' SS DD $26.00 

5V." DS DD $3600 

HEAD 
Disk Head Cleaner $14.95 



TOP SO 

ATAR 

1. Donkey Kong $3900 

2. Zaxxon $2900 

3. E.T Phone Home $39.00 

4. Miner 2049er $3500 

5. Dig Dug $33.00 

6. Choplifter $2900 

7. Donkey Kong, Jr $3900 

8. Canyon Climber $2500 

9. Snooper Troops #2 $34. OO 

10. Word Wizard $5900 

11. Picnic Paranoia $34. OO 

12. Jumpman S29.O0 

13. Shamus $34.00 

14 Letter Perfect $109.00 

15. File Manager 800 $69. OO 

16. Preppie $2400 

17. Astro Chase $25.00 

18. Blade/Black Hole $2700 

1 9. Pac Man $33.00 

20. Baja Buggies $25.00 



21 .Crush. Crumbled Chomp. ..$24.00 
22. Wayout $27.00 

23 Zork II $29. OO 

24 Visicalc $159.00 

25. Atari Writer $49.00 

26. Three Little Pigs $25. OO 

27 Upper ReachesolApshai... $16.00 

28 Starbowl Football $24.95 

29 Drelbs $26.00 

30. Protector $34. OO 

31 . Frogger $25.00 

32. Lunar Leeper $24.00 

33 Wizard of Wor $34 00 

34. Kindercomp $21.00 

35. Moon Shuttle $22.00 

36. Home Accountant ..$55.00 

37. Temple of Apshai $29.00 

38 Spell Wizard $39 00 

39. Nautilus .- $26. OO 

40. O'Riley's Mine $2200 



wasH 
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f-800-6^3.55ff 1-8QQ- 268-^559 f-800-251-8950 



In PA call (717)327-9575, Dep'. 1215 
477 E. Third St. Williamsport, PA 1 7701 
Order Status #: 327-9576 



In NVcall (702)588-5654, Dept. 1215 In Toronto call (416)828-0866, Dept. 1215 In PA call (717)327-9575, Dep'. 1215 

P.O. Box 6689, Statetine, NV 89449 2505 Dunwin Ct.,Unit 1 B, 477 E. Third St. Williamsport, PA 17701 

Order Status #: 588-5654 Mississauga, Ontario, Canada LSLITI Order Status #: 327-9576 I 

Order Status #: 828-0866 ■ 

CANADIAN ORDERS: All prices are subject to shipping, tax and currency exchange fluctuations. Call for exact pricing in Canada. LZ 

INTERNATIONAL ORDERS: All shipments outside the Continental United States must be pre-paid by certified check only. Include 3% (minimum $5.00) 
shipping and handling. EDUCATIONAL DISCOUNTS: Additional discounts are available to qualified Educational Institutions. 
APO 8 FPO: Add 3% (minimum S5.00) shipping and handling. 
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( If you 



Imagine a system that would record all 
the wonderous, valuable information 
you have assimilated onto a single tiny 
disk. (No more scattered bits of paper, 
business cards, etc.) Imagine the same 
system giving you a typed sheet you 
could put into a notebook or print out 
for a party and instantly change, or add 
to, at a moments notice. Imagine cross- 
referencing to suit both your business 
needs and personal desires so that all 
your data was organized into one little 
black book! On top of all this - imagine 
having fun putting it together. 



MAGIC MEMORY" is corrY- 

puter ro<^.'i&M^(^ t$^-&< 
MAGIC MEMORY 1 " .because: jl 
familiar. It looks like an address book 
but its not. Its more. Like the address 
book, MAGIC MEMORY™ presents an 
A thru Z index tabulation on the right 
edge of the video display. The user 
simply selects a tab and the boo/c.is 
opened to the proper page(s). A second 
set of tabs are available that can be 
labeled by the user (i.e.: companies one 
deals with, birthdays, lists, wines, 
shops, etc.) Yet MAGIC MEMORY"' is 





"Imagine" no more. ARTSCI, INC. 
proudly announces MAGIC MEMORY", 
the complete advanced database 
system. MAGIC MEMORY is made to 
simplify the information storage 
process. 

The typical first-time computer user has 
ho human experience that will help him 
to relate to a computer's methods of 
handling information. Therefore, his 
learning ability is hampered and re- 
mains so for many hours of use, 
UNLESS the computer has been 
designed to run simply. 



much more versatile than the old paper 
address book. This system can instantly 
add or delete information, sort 
alphabetically, and transfer data to 
other locations in the book. 



or any of its special sections. 

MAGIC MEMORY'S data presentatic 
screen will instantly adapt to any typ 
of information you may want to ston 
It is only limited to your imagination an 
your needs. 

MAGIC MEMORY™ is designed t 
operate on an APPLE He and still n 
main totally compatible with APPLE I 
The system will operate in 40 column 
or 80 columns. You may also use th 
70-column display that requires no ac 
ditional hardware. 

MAGIC MEMORY™ retails for $99.9! 
Call 213/985-5763. Use your imagin. 
tion to outwit your organizational woe; 



MAGIC MEMORY"- is a trademark of ARTSCI. INC 





One of the features in the print section 
of MAGIC MEMORY 1 * is the ability to 
print out any or all of the address book, 



213/985-5763 
5547 Satsuma Avenue 
North Hollywood, Ca 91601 



C" 



LDA $602 ; CHECK TO SEE IF WE 
WERE 

CMP #$33 ; REACHING OR WRITING 

BEQ U -AND 

BNE (2 ; RETURN 

LRRMESS ASC "DISK ERROR, PRESS ANY KEY TO 
CONTINUE" 



* 

* GET DI 
* 

CETNAME 


HEX 87878D00 




SK AND FILENAME 




LDX HGETME3S 






LDY /GET MESS 






JSR PRINTMES 




»2 


JSR GETLNZ 
TXA 
BEQ )3 


;GET FILENAME 




JSR BLANKNAM 


; BLANK FILENAME 
BUFFER 




LDY #$00 


;MOVE FILENAME TO 
DOS NAME BUFFER 


-1 


LDA IHBUFF,Y 
CMP #$8D 
BEQ SETPARMS 
STA DOSNAME,Y 
INY 
BNE <1 




SETPARMS 


LDA #0 
STA VOL 
LDA #6 
STA SLOT 
LDA #1 
STA DRIVE 


;3ET PARAMETERS 




LDA HNUHBER 


;3ET STARTING ADDRES! 




STA ADDR 






LDA /NUMBER 






STA ABDR+1 




*3 


RTS 




GETHESS 


ASC "INSERT DISK, AND ENTER FILENAME" 


* 


HEX 8D8D00 




t 

t THIS IS WHERE THE SORT ROUTINE 


* GOES. 


WILL BE IN NEXT MONTH 


SGRTCAT 


EQU * 




t 

* 


RTS 




MULT 


STY $65 


{MULTIPLY ROUTINE 




STX $64 


;$fc4,$65 * $AD,$AE 




LDA #$20 






STA $AD 






LDA #$00 






STA $AE 




* 


JMP RQHULT 




* 

* THIS IS WHERE THE PRINTCAT 


ROUTINE 


* GOES. 


ALSO WILL BE IN NEXT 


MONTH. 


PRINTCAT 


r EQU * 




t 
t 


RTS 




* TEXT PRINTER 




PRINTMEE 


i STX PRNTBUF 
STY PRHTBUF+1 
LDY #$00 




'■1 


LDA ( PRNTBUF ),Y 

BEQ )2 

JSR COUT 

INY 

BNE <1 




i.9 


RTS 




PGINTID 


STA IDBUFFR 


; GIVEN A AS AN INDEX 




LDA #$00 


;T0 THE ID TABLE 



Apple = 



MENU 



BOX 



STA IDBUFFR+1 

LDX #$00 

ASL IDBUFFR 

RQL IDBUFFR+1 

INX 

CPX #$03 

BNE <1 

CLC 

LDA IDBUFFR 

ADC 8ISBUFF. 

STA IDBUFFR 

LDA IDBUFFR+1 

ADC /IDBUFR 

STA IDBUFFR+1 

RTS 

JSR HOME 
LDA #1 

JSR MAXFILES 
LDA #$60 
STA $A851 
STA $?EEO 
LDA #$4C 
STA $A6EF 
LDA #DISKERfi 
STA $A6F0 
LDA /DISKERR 
STA $A6F1 
JSR SETINO 
JSR SETOUTO 
LDX UHENUTEXT 
LDY /MENUTEXT 
JSR PRINTMES 
LDA #$00 
STA CV 
JSR VTAB 
LDY #0 
STY CH 
LDA #"#" 
LDX #38 
JSR COUT 
DEX 
BPL (1 
LDX #08 
LDY #39 
STY CH 
JSR COUT 
JSR COUT 
DEX 

BPL U 
LDX #38 
JSR COUT 
DEX 

BPL <1 
LDA #$0C 



".POINT THE THE 
CORECT PLACE 

;BY MULTIPLYING 



BY 8 



; PRINT THE MENU BOX 
j SET MAXFILES = 1 
: PATCH DOS 

; it ii 



; FRAME THE MENU 



;SET THE TEXT WINDOW 
DOWN TO 



STA WINTOP 

RTS 
MENUTEXT HEX 8D8D 

ASC " 1) CATALOG DISKS" 

HEX 8D 

ASC " 2) SAVE CATALOG 

ASC "ENTER THE NUMBER" 

HEX 8D 

ASC " 3> READ CATALOG" 

HEX 3D 

ASC " 4) SORT CATALOG 

ASC "OF YOUR CHOICE." 

HEX 8D 

ASC " 5) PRINT CATALOG" 

HEX 8D 

ASC " 6> END" 

HEX 3D00 
FLDLEN HEX Oe 

HEX 01 

HEX IE 

END 



; PROTECT THE MENU BOX 



DISK ID LENGTH 
FILE TYPE LENGTH 
FILE NAME LENGTH 



JMCftO 
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by Phil Daley 

Disk Dump Program 

Here is a program to dump any disk file to screen, 
printer or whatever. The program asks for what 
type of disk you have, and then asks for the 
filename. If you don't know the name, a RETURN will 
present the possibilities. The dump can either be HEX or 
straight ASCII. If the file is not straight text, your printer 
will probably go through a few contortions in the ASCII 
mode. The program currently has subroutines for DOS and 
Pascal. I will add subroutines for CP/M, Flex and OS-9 soon. 



Listing 1 

5 DIM A(150),B(150):BU = 16364: GOSUB 9000 

10 TEXT : HOME : VTAB 7: PRINT "BISK TYPE": 
PRINT "1. DOS 3.3"A: PRINT "2. PASCAL" 
A: PRINT "3. CPH".: PRINT "4. FLEX".: PRINT 
"5. 0S-9"P: PRINT : PRINT "CHOOSE: ";: GET 
A$:A = VAL (A*): IF A < 1 OR A ) 5 THEN 
10 

81 PRINT : PRINT "SLOT FOR OUTPUT? ":: GET 

A*:SL = VAL (A*): IF SL < OR SL ) 7 THEN 
81 

85 PRINT : PRINT "HEX OR ASCII?"; : GET HE*: 
HE = 0: IF HE* = "H" THEN HE = 1 

90 TEXT : HOME : PRINT "INSERT DISK": PRINT 
: PRINT "FILENAME?": PRINT : PRINT "<RE 

TURN) FOR CATALOG ": INPUT B*:A* = C 

F = 0: IF LEN (B*) = THEN CF = l: GOTO 
110 

105 A* = B* 

110 HOME : VTAB 7: PRINT "READING CATALOG.. 
..": ON A GOSUB 1000,2000,3000,4000,500 
0: INPUT "PRESS <RETURN)";A*: GOTO 10: END 

900 HI = INT (H / 16):L0 = H - HI * 16:D = 
Hi: GOSUB 950: A* = H*:D = LQ: GOSUB 950 
:A* = A* + H* + " ": RETURN 

950 IF D < 10 THEN H* = STR* (D): RETURN 

960 Hi = CHR* (D + 55): RETURN 

1000 FOR I = 1 TO LEN (B*):A< = A* + CHR* 
( ASC ( MID* (B*,I,1)) + 128): NEXT : POKE 
780,17: POKE 785,64: FOR C = 15 TO 2 STEP 
- 1: POKE 781, C: CALL 768: FOR Y = TO 
6:E* = "":EN = 16395 + Y $ 35:Q = PEEK 
(EN): IF Q = THEN C = 2:Y = 6: GOTO 1 
070 



1030 



1065 

1070 
1085 
1090 

1100 



1135 
1140 

1155 

1170 



1220 
1230 

2000 



2030 



2060 



2090 
2100 

2110 
2200 



2250 



2470 

2485 
2490 
9000 
9010 
9011 

9015 
9020 

m 

9050 
9060 



FOR X = EN + 3 TO EN + 32:E* = E* * CHR* 
( PEEK (X)): NEXT : IF CF THEN PRINT E 
<: GOTO 1070 

IF A* = LEFT* (E*, LEN (A*)) THEN 110 


NEXT : NEXT 

IF CF THEN RETURN 

FLASH : PRINT : PRINT "NOT FOUND": NORMAL 
: RETURN 

POKE 780, PEEK (EN): POKE 781, PEEK (E 
N + 1): CALL 768:J = 0: FOR I = TO 12 
1 

IF I ) 121 THEN 1170 
A = I * 2 + 12 + BU: IF PEEK (A) = THEN 
I = I + l: GOTO 1135 
J = J + l:A(J)= PEEK (A):B(J) = PEEK 
(A + 1) 



NEXT :U = J: PRINT : PRINT CHR* (4)"P 
R«"SL: FOR J = 1 TO U: POKE 780, A( J): POKE 
781, B( J): CALL 768: FOR I = TO 255: A = 
BU + I: IF HE THEN H = PEEK (A): GOSUB 
900: PRINT A*;: GOTO 1230 

PRINT CHR* t PEEK (A)): 

NEXT : NEXT : PRINT : PRINT CHR* ( 4 )" 
PRHO": RETURN 

POKE 780,0: FOR C = 11 TO 4 STEP - 2: 

POKE 781, C: POKE 785,64: CALL 768: POKE 
731, C - l: POKE 785,65: CALL 763:EN = B 
U + 26 

SB = PEEK (EN) + PEEK (EN + 1) * 256: 
EB = PEEK ( EN + 2 ) + PEEK ( EN + 3 ) * 



IF LG = 



7 + LG 
NEXT : 



- l:E* = 
IF CF THEN 
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256 :LG = PEEK (EN + 6):E* 
THEN 2100 

FOR I = EN + 7 TO EN + 
E* + CHR* ( PEEK (I)): 

PRINT E*: GOTO 2100 

IF A* = E* THEN 2200 
EN = EN + 26: IF EN < BU + 512 - 26 THEN 
2030 

NEXT : GOTO 1085 

PRINT : PRINT CHR* (4)"PR»"SL:T = INT 
(SB / 8):S = SB - T * 8:T1 = INT (EB / 
8):S1 = EB - Tl * 8:S2 = S1:T1 = Tl - 1 
: FOR I = T TO Tl:S3 = Si: IF Tl > I THEN 
S3 = 7 

FOR J = S2 TG S3: POKE 785,64: POKE 78 
0,1". POKE 781.TS(0 JL J): CALL 768: GOSUB 
2470: POKE 786.1: fr)KE 781,TS(1.J>: CALL 
768: GOSUB 2470: NEXT :S2 = 0: NEXT : PRINT 
: PRINT CHR* (4)"PRttO": RETURN 

FOR K = TO 255:A = BU + K: IF HE THEN 
H = PEEK (A): GOSUB 900: PRINT A*;: GOTO 
2490 

PRINT CHR* ( PEEK (A)); 

NEXT : RETURN 

FOR I = 768 TO 805 

READ A: POKE I, A: NEXT 

FOR I = TO 7: FOR J = TO l: READ T 
S(J.I): NEXT J, I 

RETURN 

DATA 169,3,160,8.32,217,3.96,1,96 

DATA 1,0 17.15 36,3 0,64.6.0' 

DATA 1,0 254,94,1.0.0.0.6,0 

DATA 0.1,239,216.6.6,0,0 

DATA 0,14,13,12,11,10,9,8,7,6,5,4,3,2, 
M 5 JMCRO 
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Product Name: Ultra ROM Board/Editor 



Equip, req'd: 

Price: 

Manufacturer: 



Apple II 

$190.00 

Hollywood Hardware 

6842 Valjean Ave. 

Van Nuys, CA 91406 



Description: A plug-in ROM board with Neil Konzen's 
GPLE included with 25 ampersand utilities for an on-line 
editor/utility package. The Global Program Line Editor is 
a handy set of line editing commands and is available at 
any time, even with a program already loaded. The 
utilities include switching in other "&" commands, 
BLOAD information, control character display, free sec- 
tors, line finder, HIMEM and LOMEM settings, graphics 
screen commands without clearing screen, IF,THEN,ELSE 
structures, program restore (not new), PRINT USING, 
memory search, clear end-of-line and -page, help and 
macro definitions, for single key entry. 

Pluses: The program is always waiting to be called. If you 
forget to load a line editor while working on a program, 
then you have to save, load the editor and reload the pro- 
gram. With Ultra ROM, a PR#<slot > command will ac- 
tivate the editor, program intact. If you program a lot and 
haven't used a line editor, get one right away. 

Minuses: The "&" additions will only run on a similar 
system. (A new runtime package is being included for 
transportability.) 

Documentation: A 50-page manual clearly explains how 
the programs work and how to manage your own vectors. 

Skill level required: Some programming experience is 
necessary for full use. 

Reviewer: Phil Daley 




can be stored on a library disk with unique picture labeling 
and retrieval system. Optional equipment includes dot- 
matrix printer, plotter, color printer, and digitizer. 

Pluses: The system is menu driven and easy to become 
aquainted with. Scale drawing is accurate and easy to do. 
Zoom works at many levels of nesting, (greater than 1 part 
in a billion) giving effectively unlimited screen resolution. 
Picture complexity is only limited by space on disk. This 
system has to be seen in operation to appreciate its power: 
especially its ability to produce highly detailed tech- 
nical drawings. 

Minuses: On complex pictures this system can be slow. 
Redrawing a picture on screen can take several minutes. 

Documentation: An easy to read and well indexed manual 
answers all questions on operation. 

Skill level required: Some drafting experience will help get 
the full benefit of all the sophisticated features. 

Reviewer: Phil Daley 



Product Name: Cdex Training for VisiCalc 



Equip, req'd: 

Price: 

Manufacturer: 



Developer: 



Apple II + 

$49.95 

Cdex Corporation 

5050 El Camino Real, Suite 200 

Los Altos, CA 94022 

Dr. Steven C. Brandt 



Description: A real bargain. A program to teach you how to 
use VisiCalc and to use as reference. 2 disks lead step by 
step in major concepts and commands of VisiCalc; have 
review questions, hints, positive reinforcements. 3rd disk 
is quick reference of commands. Manual supplements 
material with exercises and reference. 



Product Name: Robographics CAD-1 



Equip, req'd: 

Price: 

Manufacturer: 



Apple II 

$1095.00 

ROBO Graphics 

125 Pheasant Run, Suite 2B 

Newton, PA 18940 



Description: An extremely sophisticated computer-aided 
graphics and drafting package for the Apple which has 
functions, speed and accuracy previously available only on 
expensive CAD systems. The basic system includes 4 
disks, manual, interface module (a copy protection device) 
and a precision controller much more accurate and ver- 
satile than a joystick. It has such features as zoom, pan, 
angle locks, grid locks, scale drawing, move, find, ex- 
change, line color and type, text entry and more. Pictures 



Pluses: Very interactive,- easy to use. A professional, 
quality package. 



top- 



Minuses: Disk lessons do not cover all commands, such as 
window and title commands, but are covered in the 
reference disk. 

Documentation: Well-written, indexed manual contains 
command reference, examples and exercises. 

Skill level required: Anyone interested in learning about 
VisiCalc. Very little computer experience needed. 

Reviewer: Mary Gasiorowski 



(Continued on next page) 
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Product Name: KoalaPad Touch Tablet 



Equip, req'd: 

Price: 

Manufacturer: 



Apple II 

$129.95 

Koala Technologies 

253 Martens Ave. 

Mt. View, CA 94040 



Description: A graphics tablet operating from the game 
controller port with extreme smoothness and precision. 
The 4x4 inch active surface can be activated with finger 
or stylus. It includes two controller buttons. 

Pluses: This product is a great refinement over a joystick. 
It is much easier and more natural to control than paddles 
or conventional joysticks. I immediately improved my 
previous high scores on every game I tried it on. Program- 
ming is identical to paddle programming. 

Minuses: The KoalaPad Touch Tablet does not have self- 
centering such as a joystick has, and removing your finger 
from the tablet may result in untimely moves during the 
progress of a game. 

Documentation: A very complete, clear and well written 
booklet is included with the tablet. 

Skill level required: No prior skill needed. 
Reviewed: Phil Daley 



Product Name: Personal Finance Manager 

Equip, req'd: Apple II + , or Apple II with Applesoft 

Firmware Card or Language System; 48K 
RAM; and one disk drive (DOS 3.3). 
Price: $75.00 

Manufacturer: Apple Computer Inc. 
10260 Badley Drive 
Cuppertino, CA 95014 
Description: A financial program that allows you to budget 
twenty-four separate accounts which you define. Also 
available are credit card accounts, and checkbook recon- 
ciliation. Defaults make date input and editing a snap. 
PFM prints out any display you wish and will also move 
each year's records to another disk for long-term storage. 

Pluses: Ample room for the average person, PFM has 
superb error-handling checks and messages to guide you 
along. The monthly/yearly updates are helpful and are 
backed up with a bar graph. 

Minuses: You can't track income which would give you a 
better income vs. expenses picture. Having to continually 
load modules from disk slows PFM's speed. Not being able 
to make financial projections will annoy some of you. 

Documentation: An attractive and concise booklet is pro- 
vided with the master disk and backup. 

Skill level requited: Any person able to turn the computer 
on and follow directions. 



Reviewer: Mike Cherry 
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software enhancement 

system, apb- 102 s 189.00 

w/gfle. apu-1. fmp, disk. 

manual quick reference guide 
apd-2. utility rom *i $35.00 

w/renumber. merge, hold, etc 
rom development pkc $99.00 

W/DISK. INSRUCnONS & 

EMULATION ROM 
A/D, 12 BIT, 16 CHANNEL $299.00 

W/5 VOLTAGE RANGES. 

25 \i SEC CONVERSION 
PRO-1, XTRA LARGE PROTOTYPE 
BOARD 529.95 

UP TO 52 IC's, NUMBERED & 

LETTERED PINS. HANDY POWER 

AND GROUND CONNECTIONS. 

NUMBERED I/O CONNECTIONS 
48 LINE PARALLEL I/O 
BOARD, CPD-1 $249.00 

25 BUFFERED LINES IN 

W/FILTERING. 23 

BUFFERED LINES OUT. 

INTERRUPT INPUT 



# 1 SFT TFR AT APPLE* 

Powerfiil New Software Enhancement System 
For Apple ][, //& Triples Programming Speed! 

APB-102 Ultra-Rom Board/Editor Includes: 

• Advanced GJ.LE.* (Global Program Line Editor) in Firmware 

—With Insert. Delete, find, Tab, Zap, Pack, Restore, End, Etc. 

• Firmware Management Program (FMP) Overlays 32K of ROM in 2K Space 
— Allows jumps and calls between banks — searches for utilities by name 
— Recognizes new ROMs and utilities automatically 

• AFU-1 with over 25 Language Extensions & Ampersand Utilities 

— If/Ihen/FJse, Print Using, Ultra Fast Search, Damaged Program Recovery 

• Always in the Machine — No Searching for a Disk 

• Never in the way — No Program RAM used 

— Connect with 4 Keystrokes / Disconnect with 2! 

"If you program & haven't used a line editor, get one right away" — MICRO MAGAZINE 

"The most powerful program development tool I have" —ROBERT WILSON, PROGRAMMER 

"Excellent Product, flawless" —PHILIP DALEY, PROGRAMMER 

"Great product, exceeds my expectations" — DR STEVE COOK 

"An elegant solution... well thought out... worth it" — SOFTALK REVIEW, SEPT. 1983 

"The best thing for the Apple since the disk" —EDWARD DECKER, PHARMACIST/PROGRAMMER 



Hollywood Hardware (213) 989-1204 

6842 VALJEAN AVENUE, VAN NUYS, CA 91406 



USE OUR 60 DAY UNCONDITIONAL MONEY BACK TRIAL 
IF YOU CAN PART WITH IT— WEIL BUY IT BACK 

ASK ABOUT DEALER/USER GROUP DISCOUNTS! 

*C.P.LE. 5 1983 NEIL KONZEN. SOLD UNDER UCENSE FROM SYNERGISTIC SOFTWARE / APPLE IS A REGISTERED TRADEMARK OF APPLE COMPUTER INC. 
A.P.P.LE. IS APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE, THE WORLD'S LARGEST APPLE USERS' GROUP WITH 25.000 MEMBERS 
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ATARI COMPUTER OWNERS: 



Pick the positively 
perfect, practical, 

peripheral 
package, from 

PERCOM DATA! 






.(SilER'-PORT, for yoi^(af^^li^^&^^^^e^^^t^^y^^f3 
uter owners who wVrjte06;'hQbka'p^ 



Until now; Atari comDt 




'prmtfir-port : •'.!;' prohtof 
. Fonthe oame atari aM^mzsciB^^O^G/^^k^^Mji^k^^ 
GaifourTOLL-FREErHOTUN&l-«0C^527Tl222J 

■ . . .'"■::' ■ .^^^»rrrwfe-in^fira1tiS^^S^^ii^^a^a^i 




W'^«MR£ 



&£ 







You've got the loot ... now, GETAWAY! to a great 
new game from the Atari® Program Exchange! 




It's all there! The squall of sirens, the crazy 
turns down endless city streets, the anxious 
search for ill-gotten gain, the race against 
time for a safe place to stash your cash! 
Now your gas tank is nearly empty and night 
is about to fall. The coppers are closing in 
fast. Before you learn again that crime 
doesn't pay.. .Quick! GETAWAY! 

Ask for GETAWAY! at your local Atari software 
retailer, or order direct. Phone 800-538-1862, or 
800-672-1 850 in California. Or write Atari Program 
Exchange, P.O. Box 3705, Santa Clara, CA 95055. 

Cassette(410) APX-10195 32K $29.95 

Diskette(810) APX-20195 32K $29.95 

For direct orders, add $2.50. 




You're in for a nasty spell ... unless you stop the Typos! 




In the dusky world beneath your 
keyboard the gruesome Typos dwell 
...waiting to attack! Term paperdue 
tomorrow? Got to get that book re- 
port typed? Fool! The Typos will 
devour your letters as you type! 
That could spell D-O-O-M-E for 
you! 

Before you start typing, get down 
to the real work: destroy the Typos 
before they destroy your proase... 



uh, proze...prrrose...Oh NO! THE 
TYPOS!!! Get TYPO ATTACK, a 

grand and glorious game from 
Atari® Program Exchange. It might 
even improve your typing! 

Ask for TYPO ATTACK at your local Atari 
software retailer, or order direct. Phone 800- 
538-1862, or 800-672-1 850 in California. Or 
write Atari Program Exchange, P.O. Box 
3705, Santa Clara, CA 95055. 
Cassette (410): APX-10180 8K $29.95 
Diskette (810): APX-20180 16K $29.95 
For direct orders, add $2.50. 
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Typing in the Listing ^M^^M 

■ he assembly listing is for refererfg||p 
..statements for poking the machin* 
"fel^& progr^ 





K^mii 



line 
each ti: 

Features: 

% f* 15 forking 

support .of disk or tape files 
-1^ Pptftnal zeroing of user tables 

|ta)piestaternent^up^^^p 
lH&k; or tape fil||f|§;£ii 



ata 

j§£&re 

|P§ter 

3^1250 in 

initial screen 




Instructions 



CLEAR 

Shift CLEAR 
right arrow 




s calculation 
ser variabl 
I^Sers file mode 
clears screen 
moves up one li: 



Using the Internal TIMER 

The Color Computer has a special variable TI? 
which increments once every 1/60 second. You i 
this timer on a Micro Calc screen to compare the S]j 
of BASIC functions. Following is a screen 
demonstrates this point: 

A = 5.3507 

T = TIMER 

B=AA2 

U = TIMER -T 

U? 

T = TIMER 

B=A*A 

U = TIMER -T 

U? 
You may be surprised by the results of this comj 
between using exponentiation and simple 
tion to square a number. Other comparisons 
wish to try are: 

using a number vs. a variable in calculation 
the SQR() function vs. raising to the .5 power 
SIN() vs. COS() 
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Listing 1 



10 'RICROCALC for the TRSSbCqCg 

28 'By P. Daley 

38 'Version 1,? ; 18/14/B3 



40 

50 
60 
78 : 
fiS : 
90 
ln» 

1 10 

120 
33« 
i 4b 

150 
160 
170 
1B0 
19» 
208 
2iw 
228 
238 
248 
258 

260 
270 
280 
298 



310 
328 
336 
348 
350 
368 
378 

398 
488 
410 



D 



B 



438 
448 
458 
460 
470 
430 
490 

508 

510 
528 
538 
548 
558 
568 
57« 
588 
598 
688 
618 
628 
638 
648 
650 
668 
678 



'Copynoht !C) 1983 
'bv HICkO ink 
'18 Northern Blvd. 
•'Aftherst, NH 83831 
'PRETEND IT'S A 16K MACHINE 
'AND SAVE A FEs BYTES FOR H/L 

clEhRIssS, leibi 

B0SUB428: GOSUBi 190 

El =32 

DEF USRS=16283: CL32 

Dlfffi»U5i: 50SUB1258 

CI=STRING$ J32.159) T 

GOTO 1158 ' lj 

PRlHT932tXl,B$iAl!;CHMiBri:LEFTIiC*,30-LEN(B*i!il! 

RETURN 

X 1=0; ¥ 1=0 

60508178 s> 

A*=MEY$ (j 

iFA*= sa TKE:N210 

IFtti="i"THENB!=32:6O5UB170jfiOTO490 

IFA$=CHfi$ii2iTfiENS03UBT238;SQT0218 

IFA*=Chl*i?2iTHENFQRIl=STG14:BNIl}=":NEri: 

BI-32;60T01i5@ 

IFASFfA*) /39ANDA3C(A$) <96THEn348 

B1=32:G03UB178 

lFA*=CHR*il3)THENXi=Xi-*-l:lFXl>14THfcNXi=a 

IFAJ=CBR$<8)ANDYl}8TKENE$ui)=LEFT$iB*ui), 

LEN i 3$ t X 1 ) j - 1 ) ; ¥ 1 =Y 1 - i 

IFA*=CHR* i 9) THEHX 1 =X 1 -1 : 1FS i <STHENX 1 = 14 

IF A*=CHR* i I»)THEMX1=X1+1 : IFX1 >14THENX1=0 

IrA$="s' J THEN990 

B0T03S8 

V 1 = V 1 + 1 : 1 FY 1 >297HENB 1 =32 ; SuSLiB 1 78 : XI = X 1 + 1 : Y 1 =8 

1FLEM ( B* ! U ) ) =>29TBENX ! =X 1 +1 : SOT0378 

B$iXi)=Bii.XlHA$ 

IFXi>14TBENXi=S 

Vl=LEN!B*<.Ai)): Bi=95 

IFHIDt < E$ < X 1 i . 2, 1 i = a ?"THENB* i X 1 ) =LEFT* iB$ ( XI ! , 2 ) 

6QSUE170 

G0T021S 

■'H/"l ROUT 1 HE TO EVALUATE 

'EXPRESSION AND RETURN jr 

FQRii = J6283T016283+2e JV 

REABA 1 : POKE 1 1 , Al : NEXT : RETURN 

>bTh 158jiee 5 Di, J6,14i,i:,2i:],15 , r,lflc 

DATA 169, 184,33, 142, 2, 228., 159 ; 166. 166, 132 

DATA 189,!?3,i9S,53,i6,159\l66.57 

'ROUTINE TO POKE' EXPRESSIONS 

'SET UP VARIABLES AND PRINT 

F0RIl=»T0i4: CT=8; BUF=732 

IFLENiB$ill))<2TKEN 668 K 

IFfiIDi<B$ai).2, iK>"= B THEKel0 

F0RJl=lT0LENi6iilD) 

IFHID$(BtiIl),Jl 1 l) = ": !, THEN FLhS=1:60Su8588:GGTO578 

POKEBUF+Jl,ASCiHID$(B$Ul.).Jl,l)): CT=CT+1 

NEXT 

FOKEBUF+J 1.13s BUF=BUF-iCT*l > -p 

CT=8: Zl=USRgiIi) T 

IF FLA6=1 THEN FLAS=8: RETURN 

iFHID$iB$iIli J ,2,iK> 5 ?"THEN668 

KX=ASC (LEFT i it)* i 1 1 ) , 1 ! ) -64 

G0SUB788 

6$ ( 1 1 S =LEFT » iB$ i 1 i ) , 2} +STRI f Z 1 J 

Xl=Ii:Fi=32:B0SUE17w 

NEXT 

XJ=6:B1=95:6OSUB170 



(Continued on next page) 
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Listing 1 (continued) 


1130 INPUT 8TD,B*iI!) 




ii40 MESTs CLOSE ITD 


t'30 BO] Oily 


1150 CLS2,FORK1-0TD]5 


A90 KK = A5CiLEFTiiB$iIi}i i) ) - 64 


i liS G0SUB17S 


7f!w [ifi j<K GOTO 720, 730= 7^0,750,760, 7 70,7s0,790, 300,810, 




1173 NE.XT;Ei=95 


320,330, 34i>, 850, 860, 670, 880. 89s, 903,910, 920. 930,940, 


1130 GOTO 190 


950.930.973 


1190 CL 3 : RR I NT K t AFE OR dISK SY3TEH: !! ;:1NRUTA$ A 
12S0 IF LEFTiiA*,i)= n D ! 'THEN TD-i ELSE ' TD=-1 ** 


710 RETURN 


720 Il-AifiETu'RN 


1210 RETURN -\k 
1220 D=?9 ITl 


7.\fl 7 i=R;RETIIRN 


- m -.1 .^ r..--^,,-... T 

.'-SB il=L-:fiC MJK.N £ 


lli'S A-0; 6-0: C z 0,*D=0: E=.0: F-0; b^S; H = 0.- J -2: ^-3; K = b:l = 8; H = b; 


750 il=D. RETURN 


N = 0:O = 3:?=0;S=0;R=0:S- = 0;T = 0:U-0d V = 0:» = 0: »-0: i-sil-d 


VA@ 7 l=t; RtTURiM 


1240 RETURN 


770 Z 1 =F : RETURN 


1250 FORI i =«TO 14; READBf ill ) ;NEaT: RETURN 


7 30 Z i=S: RETURN 


1260 DhT-Ak=8S5b, ,n=4S, , i = i!.9,,I=I/i2S»,,D=u-ii+I.i -Rj T, 


798 Zi = H. RETURN 


1270 DATAP=A/'D,,P=lNTipll00t,5i. ; 10i5, , P"? 


Si;? Z J = 1 : RETURN 






310 Zi=J: RETURN 






320 I i=K; RETURN 
358 Z I =L; RETURN 


Listing 2 


t-40 Z 1 ^M: RETURN 




350 Z1-N:RETURN 
3.i8 Z 1=0: RETURN 
378 7 i=F: RETURN 


* MICRO CALC 

t Modified far TRS 8«l 


38.0 Z 1 = Q ; R h T URN 


t by P. Daisy 


39S Z i=R : RETURN 


t October i4, 1933 






Tiii? il=a.KtiUK!v 
9 is Z 1=1; RETURN 


1 CONST ANT B 


920 Zi = U: RETURN 






933 2 i=V: RETURN 


00A6 CHRPTR SOU IA8 
0ZDC S ■ R I r-u ElrU til'L 


940 Z l = w; RETURN 


950 Z I-!; RETURN 
9o« Z j=V ; RETURN 


ADCi COMMAND EOU IADCs 
BS21 TOKEN E9U $B821 


'7» Zi=Z : RETURN 




983 RETURN 




9?» CLS;FRIN7S.i4, a sAVE DR IOhD?" 


9E Ac LDX CHRPTR Get current pointer 

34 10 PSHS a Save it 

SE 02SD LDX I3TRISS+1 Load pointer to input butter 


i030 INPUTS! 

I0i« PRINT: IBPoT'FILENAflE; ":F$ 


i»20 IFLENt.F»)-0THENF?= 3 HICRO !! 
1030 FI=F1+".CAL" 
1040 B* 115) -Ft 


?F Ao 5TX CHRPTR Set pointer 
3D B321 JBR TOKEN Tofcenne string 


3E 02DC LDSs iSTRING Reset pointer to tokenized 


!05« iFi-EFT»iA$ ! _ii = !! L"7BENli30 jj 
1260 OPEN "0 J .JlTD,F? Xi 
1070 FORii-0TO14 
1?S0 i>iRITE tTDjSti.Il) 
1098 NE3iT: CLOSE sTD 


9F Ac ST X CHRPTR string and store it 
A6 84 LDA ,1 Get -first character 
SD ADC6 JSR COMMAND Execute isniediate node 
35 10 PUL3 i Get old pointer and 
?F Ac STX CHRPTR restore it 
39 RTS Return 


1 iSfl RfiTfii i5fl 


1110 OPEN "I°,#TD,Fi 
112« FORI1-0TO14 


END START JMCftO" 



NOT ONLY ANOTHER TECHNOLOGICAL BREAKTHROUGH 

BUT ALSO EASY TO USE AND TO INSTALL - ......-,* a • 



Modems are the most important device 
used to link two products together 
through ordinary telephone lines at 
miles apart. The INCOMM STARCOM. a 
300/1200 bps Auto Dial. Auto Answer 
Auto Log On modem was introduced to 



vo high speed device 
laving absolutely NO ! 



of computers or c 
general. Anybody 

operate the STARO 



[STARCOM 

k*450 



STARCOM is a 300M200 bps Auto Dial/Auto Log On/Auto An; 

OSCOM is a 300/1200 bps Auto Dial'Auto Log On/Auto Answer 

(TM) Computer Software (included) modem. 

COMSOFT is a communication software package 

OEM MODEM BOARD is also available for custom installation 






SEND FOR 
FULL LINE 
CATALOG 

of peripherals in- 
cluding Modems. 
Muxes. Switches 
and Breaker Boxes 



DEALER INQUIRIES 
INVITED 
(312) 459-8881 
or 1-800-323-2666 - t 

4- ... I- 



INCOMM 

115 N. WOLF RD. WHEELING, IL 60090 







OSCOM 

,$520. 



SO COMPACT: 

Only 1'i ' x 6'2 x 7' 2 .1 5 
Fits in your coat pocket! 
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JRS-80C = 



Radio Shack 
Color Computer 
Memory Map 




(All Numbers 


in Hex] 


0062 
0063 




Overview 


0068-0069 
006C 


0000-03FF 


Ram used by BASIC Interpreter 


006F 


0400-05FF 


Video Display (May be moved) 




0600-OFFF 


RAM for user program 




1000-3FFF 


Additional RAM in 16K system 


0070 


4000-7FFF 


Additional RAM in 32K system 


0071 


8000-9FFF 


Extended BASIC ROM 


0072-0073 


AOOO-BFFF 


Basic Interpreter ROM 




COOO-FEFF 


Cartridge ROM 


0074-0075 


FFOO-FFFF 


I/O and Control 


0078 




Extended 


0079 


0003 


General Counter 


0O7A-OO7B 


0006 


String Flag 


007C 


0007 


Flag if Garbage Collected 




0019 


Start of User RAM 


007D 


00 19-001 A 


BASIC Program Begin 




001B-001C 


Pointer to Top of Program/Begin 
Variables 


0O7E-O07F 


001D-001E 


Pointer to Top of Variables/Start of 


0080 




Arrays 


0081 


001F-0020 


Pointer to End of Arrays/Start of 


0082 




Available Memory 


0083 


0021-0022 


Top of Stack/Start of String Pool 


0084 


0023-0024 


Start of Used Area of String Pool 


0085 


0025-0026 


Pointer to BASIC Memory Limit 


0087 


0027-0028 


End of String Pool/ Start of User Space 


0088-0089 


0033-0034 


Pointer to Current Data Read Position 


0O8A-O08B 


0037-0038 


Current Variable Name 


008C 


0041 


4 Bytes Used by Tokenize 


008D-008E 


0041-0048 


Start and End Address of Block Move 


008F 


0041 


Highest Address to Move to 


0092 


0043 


Highest Address to Move 




0045 


Lowest Address Moved to 


0094 


0047 


Lowest Address to Move 


0095-0096 


0047 


Highest String Found 




004B 


Address of Descriptor of Highest 
String Found 


0097-0098 


004F-0054 


Floating Point Accumulator #1 


0099 




|6 bytes) 


009A 


0056 


String Length 


009B 


005C-O061 


Floating Point Accumulator #2 

[6 bvtesl 


009C 


No. 67 - Decembe 


1983 MIC 


;ro 



Sign Comparison 

Extended Precision Byte 

Current Program Line 

Current Column Position 

Device Number for Output Character 

(0 = Screen, $FE = Printer, $FF = Tape, 

1-16 = Disk BASIC File#] 

EOF on Tape File Flag 

Reset Flag = $55 for Warmstart 

Restart Pointer (contains 

$80C0-BASIC Warmstart) 

Pointer to End of Memory 

File Mode (0 = None, 1 = Input, 2 = 

Output) 

Tape Working Buffer Length 

Tape Working Buffer Pointer 

Tape File Block Type (0 = Header, 

l=Data,$FF = EOF) 

Number of Data Bytes in Cassette 

I/O Block 

Program End Address 1 after a 

CLOADM 

Checksum 

Cassette Error # 

General Counter 

Pulse Width Count 

Rise/Fall Flag 

Last Sine Value 

Last Key Entered 

Pointer to Current Cursor Position 

Serial Read # of Tries 

Sound Frequency 

Duration of Sound 

Start of Area Downloaded from ROM 

Controls Length of Unmodulated 

Carrier Preceeding Casette I/O 

Cursor Color 

High and Low bytes of Baud Rate 

Code (Normally $0057) 

Carriage Return Delay (Normally 

$0001) 

Comma Field Width (Normally $10) 

Last Comma Field (Normally $70) 

Printer Line Width [Normally $84) 

Affects positions of Vars. Line-printed 

in Comma Fields ($00) 
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009D-009E 


Transfer Address after CLOADM 


014E-014F 


009F 


Start of get next character subroutine 


0150-0151 


00A5 


Start of get same character subroutine 


0152-0159 


00A6 


Next Character Pointer 


015A-015D 


00A8-00AA 


Jump Vector to Print OK 


015A 


OOAB-OOAE 


Extended Product Area 


015B 


00 AF 


Trace Flag 


015C 


00B5 


Current Color 


015D 


00B6 


Current PMODE 


015E-0160 


00B7-00B8 


End of Screen 1 




00B9 


Number of Bytes per Line 


0161-0163 


OOBA-OOBB 


Address of Graphics Page 




OOBC 


$E = Disk system, $6 = No disk 


0164-0166 


OOBD 


XI 




OOBF 


Yl 


0167-0169 


00C1 


Color Set 1=8 




00C3 


X2 




00C5 


Y2 


016A-016C 


00D7 


Temp 




OODB 


Change Flag 




00E6 


DLOAD Baud Rate 


016D-016F 


00E7 


Input Timeout Constant 




OOEA 


Operation Code 


0173-0175 


OOEB 


Drive Number 




OOEC 


Track 


0176-0178 


OOED 


Sector 




OOEE 


Buffer Address 




OOFO 


Status Returned 


0179-017B 


0100-0102 


Software Interrupt 3 Called by Vector 






at $FFF2 


017C-017E 


0103-0104 


Software Interrupt 2 Called by Vector 






at $FFF4 


017F-0181 


0105-0108 


Software Interrupt 1 Called by Vector 






at $FFFA 


0182-0184 


0109-010B 


Non-Maskable Interrupt Called by 






Vector at $FFFC Set to $D7AE by 


0185-0187 




Disk 




010C-010E 


Interrupt Request Called by Vector at 
$FFF8 Set to $A9B3/Set to $894C by 


0188-018A 




Extended/Set to $D7BC by Disk 


018B-018D 


010F-0111 


Fast Interrupt Vector Called by Vector 
at $FFF6/Set to $A0F6 




0112-0113 


High and low bytes of TIMER 


018E-0190 


0116-0117 


Seed for RND Function 




01 1A 


Shift Lock Flag 


0191-0193 


one 


Keyboard Delay Constant 




011D-011F 


Jump vector to $8489-Print OK 


0194-0196 


0120-013C 


Token Table Directory [Byte 1 = # of 






Keywords, Byte 2,3 = Address of Table, 


0197-0199 




Byte 4,5= Address of Subroutines) 




0120-0124 


BASIC Commands 


019A-019C 


0125-0129 


BASIC Functions 




012A-012E 


Extended BASIC Commands 


019D-019F 


012F-0133 


Extended BASIC Functions 


01A0-01A2 


0134-0138 


Disk BASIC Commands 




0139-013C 


Disk BASIC Functions 




013E-013F 


Address for USRO 


01A3-01A5 


0140-0141 


Address for USR1 




0142-0143 


Address for USR2 


8000-9FFF 


0144-0145 


Address for USR3 


01D1 


0146-0147 


Address for USR4 


01D2-01D9 


0148-0149 


Address for USR5 


01DA-02D8 


014A-014B 


Address for USR6 


01DA-01E1 


014C-014D 


Address for USR7 


01E5-01E6 



Address for USR8 

Address for USR9 

Keyboard Rollover Table 

Joystick Readings 

Left Joystick Up/Down 

Left Joystick Left/Right 

Right Joystick Up/Down 

Right Joystick Right/Left 

Open Device Hook Called at 

$A5F6/Set to $C426 by Disk 

Device Number Check Called at 

$A5B9/Set to $C838 by Disk 

Return Device Parameters Called at 

$A35F/Set to $C843 by Disk 

Character Output Called at 

$A282/Set to $8273 by Extended/Set 

to $CB4A by Disk 

Character Input Called at $A176/Set 

to $BCF1 by Extended/Set to $C58F 

by Disk 

Check File OPEN for Input Called at 

$A3ED/Set to $C818 by Disk 

Close All Open Files Called at 

$A426/Set to $CA3B by Disk 

Close One File Called at $A42D/Set 

to $8286 by Extended/Set to $CA4B 

by Disk 

Print Using Called at $B918/Set to 

$8E90 by Extended 

File Item Scanner Called at 

$B061/Set to $CC5B by Disk 

Break Key Check Called at $A549/Set 

to C859 by Disk 

Get Line From Keyboard Called at 

$A390/Set to JMP RTS by Disk 

Finish Loading ASCII File Called at 

$A4BF/Set to $CA36 by Disk 

Check End Of File Called at 

$A5CE/Set to $C860 by Disk 

Evaluate Operand Called at 

$B223/Set to $8846 by Extended/Set 

to $CDF6 by Disk 

User Error Called at $AC46/Set to 

JMP RTS by Disk 

Error Called at $AC49/Set to $88FO 

by Extended/Set to $C24D by Disk 

Run Called at $AE75/Set to $829C by 

Extended/Set to $C990 by Disk 

Hex & Octal Called at $BD22/Set to 

$87E5 by Extended 

Execute Line Called at $AD9E/Set to 

$82B9 by Extended 

Graphics Address Called at $A8C4 

CLS,GET,PUT etc. Called at 

$A910,$975C,$8AFA,$8162 Set to 

$C29A by Disk 

Tokenize Called at $B821/Set to 

$8304 by Extended 

Extended BASIC ROM 

Tape File Length 

Tape File Name 

Cassette Buffer 

CLOADM File Name 

EXEC Address from Tape 
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VIDEO TERMINAL BOARD 82-018 



This is a complete stand alone Video Terminal board. 
All that is needed besides this board is a parallel 
ASCII keyboard, standard NTSC monitor, and a 
power supply. It displays 80 columns by 25 lines of 
UPPER and lower case characters. Data is transfer- 
red by RS232 at rates of 110 baud to 9600 baud — 
switch selectable. The UART is controlled (parity etc.) 
by a 5 pos. dip switch. 

Complete source listing is included in the documen- 
tation. Both the character generator and the CRT pro- 
gram are in 2716 E PROMS to allow easy modification 
to your needs. 

This board uses a 6502 Microprocessor and a 6545-1 
CRT controller. The 6502 runs during the horz. and 
vert, blanking (45% of the time). The serial input port 
is interrupt driven. A 1500 character silo is used to 
store data until the 6502 can display it. 




Features 

• 6502 Microprocessor 

• 6545-1 CRT controller 

• 2716 EPROM char. gen. 

• 2716 EPROM program 

• 4K RAM (6116) 



• 2K EPROM 2716 

• RS232 I/O for direct 
connection to computer 
or modem. 

• 80 columns x 25 line display 



Size 6.2" x 7.2" 

Output for speaker (bell) 

Power + 5 700Ma. 

+ 12 50Ma. 

-12 50Ma. 



BAUD RATE 

GENERATOR 
110-9600 



PARALLEL 
KEYBOARD 

INPUT 

(TTL) 



VIDEO TERMINAL 
82-018 



UART 



VIDEO 
DISPLAY 
CIRCUIT 



COMPOSITE 
VIDEO 



SPEAKER 
(BELL) 



OUT IN 
RS232 I/O 



+ 5 +12 -12 GND. 



This board is available assembled and tested, or bare board with the two EPROMS 

and crystal. 

Assembled and tested #82-018A $199.95 

Bare board with EPROMS and crystal 

Both versions come with complete documentation. 



#82-01 8B $ 89.95 



John Bell Engineering, Inc. 



#249 



ALL PRODUCTS ARE A VAILABLE FROM JOHN BELL ENGINEERING, INC. • 1014 CENTER ST., SAN CARLOS, CA 94070 
ADD SALES TAX IN CALIFORNIA • ADD 5% SHIPPING & HANDLING 3% FOR ORDERS OVER $100 

(415)592-8411 ™ £{J™co D 

WILL CALL HOURS: 9am - 4pm ADD * 150 FOR COa 



SEND $1.00 FOR CATALOG 
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01E7-01E8 


Load Address from Tape 


94A1 


Draw Line 


02DC 


Contains token for first keyword in 


94E2 


The Draw Line Loop 




BASIC Statement 


9506 


Move Up, Down, Left, Right Routines 


02DD-03DC 


Console I/O Buffer 


9532 


PCLS 


0400-05FF 


Lo-res screen 


9546 


COLOR 


0600-35FF 


Posible Graphic Screens 


9621 


PMODE 


0600 


Bottom of program area/No Disk 


9670 


SCREEN 


0600-06FF 


Disk Buffer 


968B 


PCLEAR 


0700-07FF 


Disk Buffer 


9710 


Compare Two Points 


0800-0927 


Drive Table 


9723 


PCOPY 


097E 


Table of Current Tracks 


9755 


GET 


0982 


NMI in use flag 


9758 


PUT 


0983 


NMI JMP 


98EC 


PAINT 


0985 


Motor shutoff counter 


9A22 


PLAY 


0986 


Current latch data 


9CB6 


DRAW 


OCOO 


Program Start/Disk System 


9E9D 


CIRCLE 


OFFF 


Top of memory (4K) 


A000-BFFF 


BASIC ROM 


3FFF 


Top of memory (16K) 


A0OO-A0O1 


Address of Check Keyboard 


7FFF 


Top of memory (32K) 


A002-A003 


Address of Character Out 


8000-9FFF 


Extended BASIC ROM 


A004-A005 


Address of Cassette Read On 


807F 


Cold Start to BASIC without 


A006-A007 


Address of Block In 




size Search and Workspace ink. 


A008-A0O9 


Address of Block Out 




Resets pointers to Start of BASIC 


A00A-A00B 


Address of Joystick In 




Program 


A00C-A00D 


Address of Header Out 


80C0 


Warmstart to BASIC. Does not Reset 


A0OE 


Secondary Reset 




Pointers to Start of BASIC Prog 


A027 


Primary Reset 


8183-81EF 


Extended Command Token Table 


A06E 


Hardstart (After Reset) 


81FO-821D 


Subroutine Entry Addresses 


A0A6 


Check for Disk ROM 


821E-8256 


Extended Function Token Table 


A0CB 


Check for Extended ROM 


8257-8272 


Subroutine Entry Addresses 


A0D7 


Print Version 


82B9 


Break or Stop Routine 


A0E8 


Softstart (After Reset] 


82BB 


Extended interpret loop 


A0F6 


FIRQ Entry (ROM Pack Check] 


8378 


COSine 


A10D 


Start of Area Downloaded to RAM 


8381 


TANgent 




at $8F 


83B0 


ArcTaNgent 


A129 


Start of Area Downloaded to RAM 


8446 


LOG 




at $10C 


8480 


SQuare Root 


A171 


Input Character, Bit 7 Clear 


84F2 


EXPonential 


A176 


Input Character 


8524 


FIX 


A199 


Blink Cursor Color 


8533 


EDIT 


A1B1 


Wait for Keypress and Read Kybd; 


86A7 


TRace ON 




Char Returned in A Register 


86A8 


TRace OFF 


A1C1 


Check Keyboard and Get Key if 


86AC 


POSition 




pressed; Z= 1,A = if no key 


86BE 


VARiable PoinTeR 




Z = 0,A = key, B and X Preserved 


874E 


STRINGS 


A26E 


Table of Codes for non-alpha keys 


877E 


INSTRing 


A282 


Output Character to Device Specified 


8871 


DEFine 




by $6F, All But CC Preserved 


8968 


TIMER 


A2BF 


Output Character in A to Printer 


8970 


DELete 




(RS232| 


8A09 


RENUMber 


A30A 


Output Character in A to Screen 


8BDD 


HEX$ 


A390 


Input Line from Keyboard into Buffer 


8C18 


DownLOAD 




at $02DD ; Return X$02DC; Zero 


8DBC 


Input Serial Character 




byte at End of Buffer 


8E06 


Output Serial Character 


A416 


CLOSE 


928F 


Find Byte/Bit Routine 


A44C 


CSAVE 


92A6 


Byte/Bit; PMODES 0,2,4 


A46C 


Perform CSAVEM Function; Requires 


92C2 


Byte/Bit; PMODES 1,3 




Start of Memory Block in $19-A0 and 


92DD 


Bit Tables 




in S01E7-8, Transfer Address in 


9339 


PPOINT 




$01E5-6, and File Name in $01D2-9. 


9361 


PSET 




Enter with A = 2 and X = 0. 


9365 


PRESET 


A498 


CLOAD 


93BB 


LINE 


A4FE 


CLOADM 


9444 


Draw Horizontal Line 


A53E 


EXEC 


946C 


Draw Vertical Line 
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A564 


INKEY$ 




Address, $45-6 is Destination Bottom 


A59A 


Transfer Block 




Address after Move, $47-8 is Source 


A5CE 


EOF 




Bottom Address 


A5EC 


SKIPF 


AC46 


Error Handler 


A5F6 


OPEN 


AC 73 


Idle Loop 


A629 


Open Tape File 


AD17 


NEW (Clear Memory) 


A681 


Find Filename 


AD19 


Execute NEW 


A6FE 


Blink Screen Corner 


AD47 


FOR 


A701 


READ Block from Tape 


AD9E 


Interpret Loop 


A70B 


Read a Block from Cassette; Must be 


ADC6 


Execute line 




On and In Bit Sync. $7C Contains 


ADE4 


RESTORE 




File Block Type:0 = File Header, 


ADEB 


Check for Break or Pause 




l = data, $FF=EOF. $7D Contains 


AE02 


END 




Number of Data Bytes in File 


AE09 


STOP 




(0-$FFJ. z=l, A = Oif no Errors, 


AE30 


CONTinue 




Z = 0, A = 1 if Checksum Error, Z = 0, 


AE41 


CLEAR 




A = 2 if Memory Error. X = Buffer 


AE75 


RUN 




Start Block Length if no Error, X 


AE86 


GO 




Points to Beyond Bad Address if 


AE92 


GOSUB 




Error. U and Y Preserved 


AEA4 


GOTO 


A77C 


Start Cassette and Get Into Bit Sync 


AECO 


RETURN 




for Reading. U and Y Preserved, FIRQ 


AEEO 


DATA 




and IRQ Masked. 


AEE3 


REM or ' 


A7BD 


MOTOR 


AEE8 


ELSE 


A7D8 


Turn Cassette On and Write Leader 


AF14 


IF 


A7E5 


Write Tape File 


AF42 


ON 


A7E9 


Turn Off Motor 


AF67 


Get Unsigned Integer 


A7F4 


Write Block to Cassette; Tape to 


AF89 


LET 




Speed and Leader Written, $7E = 


AFF5 


INPUT 




Buffer Address, $7C = Block Type, 


B046 


READ 




$7D = Number of Data Bytes, 


B0F8 


NEXT 




X = Buffer Address Data Bytes, All 


B156 


Get Expression 




Registers Modified 


B1CB 


Another Entry in Operation Table 


A85C 


Sine Table for Cassette Out 


B223 


Get Operand 


A880 


SET 


B290 


Execute Functions 


A8B1 


RESET 


B2D4 


AND/ OR Operations 


A8F5 


POINT 


B2F4 


Relational Operations 


A910 


CLS 


B34E 


DIMension 


A928 


Clear Screen and Home Cursor 


B38F 


Variable Creation 


A937 


Print Copyright (CLS 9) 


B3E4 


Evaluate Integer Expression 


A94B 


SOUND 


B3ED 


Convert Number in FPAC into 16-bit 


A956 


Generate Sound 




Two's Complement Integer Left in D 


A992 


AUDIO 




Register,- Overflow, return to BASIC 


A9B3 


Interrupt Processor (60 Hz Counter] 




if > + 32767 or <-32768 


A9C6 , 


JOYSTICK 


B4EE 


MEM 


A9DE 


Read and Store Joystick Values; 


B4FD 


STR$ 




Lef f. Up/Down is $15A,Rt/Lft is 


B518 


Get String 




$15B ; Right:Up/Down is $15C,Rt/ 


B56D 


Allocate string routine 




Lft is $15D. Y is Preserved 


B591 


Garbage Collect 


AA29 


Function Address Table 


B5D8 


Process one descriptor 


AA51 


Operation Table far +,-,*,/, , 


B5EF 


Compact one string 




AND, OR (3 bytes each- Addresses and 


B6fl 


LEN 




Precedence Values) 


B68C 


CHR$ 


AA66 


Command Name Table 


B6A0 


ASC 


AB1A 


Function Name Table 


B6AB 


LEFT$ 


AB67 


Command Address Table 


B6C8 


RIGHT$ 


ABAF 


Error Code Table 


B6CF 


MID$ 


ABE1 


Text Strings 


B716 


VAL 


ABF9 


Search Stack for GOSUB or FOR 


B750 


PEEK 


AC1E 


Open up space in memory 


B757 


POKE 


AC20 


Move Block of Memory Starting at 


B75E 


LLIST Command 




Top ; $41-2 is Destination Top 


B764 


LIST Command 




Address, $43-4 is Source Top 


B7C2 


Untokenize 
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B7E6 

B821 

B892 

B8F7 

B97E 

B99C 

B9AC 

B9B4 

B9B9 
B9C2 
BA79 

BAC5 

BACA 

BB2F 

BB7D 

BB91 

BC4A 

BC5F 

BC6D 

BC7A 

BC93 

BCEE 

BD12 

BDB6 

BDCC 

BDD9 

BECO 

BEC5 

BF1F 

BF78 

BFBD 

BFC8 

BFF2 

BBF2-BBF3 

BBF4-BBF5 

BBF6-BBF7 

BBF8-BBF9 

BBFA-BBFB 

BBFC-BBFD 

BBFE-BBFF 

COOO-D7FF 

C004 

C0D4 

C17F-C1DA 

C1DB-C200 

C6C2 

C932 

C98B 

C99A 

CBCF 

CD1A 

CD28 

CD36 

CD5B 

CDCO 

CDE9 

CF3F 

CF8A 

CFEO 

D025 



Untokenize one token 
Tokenize 

Tokenize one word 
PRINT 
TAB 

Print Text String 
Print a Space 

Start of Floating Point Routines- 
Rounding 

Subtract from FPAC1 
Add to FPAC1 
Two's Complement FPAC1 

Constant 1.0 

Multiply 

Move [X] to FPAC2 

Constant 10.0 

Divide 

Move FPAC2 to FPAC1 

Move FPAC1 to FPAC2 

Test FPAC1 for Zero and Sign 

SiGN 

ABSolute value 

INTeger 

Convert String to Floating Point 

Constants 99999999.9, 999999999, 

1E09 

Display the Decimal Value in D 

Register 

Convert FPAC1 to ASCII 

Constant 0.5 

Series of 4 Byte Constants 

RaNDom 

SINe 

Constants 2 pi, 0.25 

Series of 5 Byte Constants 

Interrupt and Reset Vectors 

SWI3 

SWI2 

FIRQ 

IRQ 

SWI1 

NMI 

RESET 

Disk BASIC ROM 

Address of DSKCON 

Warm Start to Disk BASIC 

Disk Command Token Table 

Disk Subroutine Addresses 

KILL 

SAVE 

MERGE 

LOAD 

DIRectory 

CVN 

MKN$ 

LOC 

LOF 

FREE 

DRIVE 

RENAME 

WRITE 

FIELD 

RSET 



D026 

D080 

D146 

D175 

D2CC 

D3FF 

D474 

D4AB 

D65B 

D66C 

D6C5 

D6DE 

D6FD 

D705 

D7A2 

D7AA 

D7AE 

D7BC 

FF00-FFFF 

FF00-FF03 



LSET 

FILES 

UNLOAD 

BACKUP 

COPY 

DSKI$ 

DSKO$ 

DSKINI 

VERIFY 

DSKCON 

Restore 

Get Status 

Delay 78 msec 

Read/Write sector 

Command Address Table 

Bit Table for Drives 

NMI Handler 

IRQ Handler 

I/O and Control 

PIAU8 



FF00 Bit 0-Keyboard Row 1 and Right 
joystick switch 

Bit 1-Keyboard Row 2 and Left 
joystick switch 
Bit 2-Keyboard Row 3 
Bit 3-keyboard Row 4 
Bit 4-Keyboard Row 5 
Bit 5-Keyboard Row 6 
Bit 6-Keyboard Row 7 
Bit 7-Joystick comparison input 

FF01 Bit 0-Control of the Horizontal 
sync clock|63.5 microsec) 
Bit l-;interrupt input 



FF02 



FF03 



Bit 2-Normally 1 = Changes FFO0 to data 


direction register 


Bit 3-SEL 1: LSB of the two analog MUX 


select lines 


Bit 4-1 Always 


Bit 5-1 Always 


Bit 6-Not used 


Bit 7-Horizontal sync interrupt flag 


Bit 0-Keyboard Column 1 


Bit 1-Keyboard Column 2 


Bit 2-Keyboard Column 3 


Bit 3-Keyboard Column 4 


Bit 4-Keyboard Column 5 


Bit 5-Keyboard Column 6 


Bit 6-Keyboard Column 7 


Bit 7-Keyboard Column 8 


Bit 0-Control of the field 



Bit 1 



;sync clock 16.667 MS 
-; interrupt input 



Bit 2-Normally 1 = changes FF02 to data 

direction register 
Bit 3-SEL 2 MSB of the two analog MUX 

select lines 
Bit 4-1 Always 
Bit 5-1 Always 
Bit 6-Not used 
Bit 7-Feld sync interrupt flag 
FF20-FF23 PIA U4 
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Off l=On 



FF20 Bit O-Cassette data input 

Bit l-RS-232 data output 

Bit 2-6 bit D/A LSB 

Bit 3-6 bit D/A 

Bit 4-6 bit D/A 

Bit 5-6 bit D/A 

Bit 6-6 bit D/A 

Bit 7-6 bit D/A MSB 
FF21 Bit O-Control of the CD; 
;RS-232 status input 

Bit 1-; 

t 

Bit 2-Normally 1 

Bit 3-Cassette motor control = 

Bit 4-1 Always 

Bit 5-1 Always 

Bit 6-Not used 

Bit 7-CD interrupt flag 

FF22 Bit O-RS-232 Data input 

Bit 1-Single bit sound output 
Bit 2-RAM size input 
Bit 3-VDG Control output 
Bit 4-VDG Control output 
Bit 5-VDG Control output 
Bit 6-VDG Control output 
Bit 7-VDG Control putput 

FF23 Bit 0-;Control of the 

;Cartridge interrupt 
Bit l-;input 



Bit 2-Normally 1 changes FF22 to data 

direction register 

Bit 3-Six bit sound enable 

Bit 4-Always 1 

Bit 5-Always 1 

Bit 6-Not used 

Bit 7-Cartridge interrupt flag 
FF40 Output latch 

Bit O-Drive Select 

Bit 1-Drive Select 1 

Bit 2-Drive Select 2 

Bit 3-Motor On 

Bit 4-Precomp 

Bit 5-Double Density 

Bit 6-Drive Select 3 

Bit 7-Halt Enable 
FF48 Disk Status 
FF49 Disk Track Number 
FF4A Disk Sector Number 
FF4B Disk Data 



FFE0-FFF1 

FFF2-FFF3 

FFF4-FFF5 

FFF6-FFF6 

FFF8-FFF8 

FFFA-FFFB 

FFFC-FFFD 

FFFE-FFFF 



Not used 
SWI3 Vector 
SWI2 Vector 
FIRQ Vector 
IRQ Vector 
SWI1 Vector 
NMI Vector 
Reset Vector 
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FFCO 
FFC1 



FFC2 
FFC3 



FFC4 
FFC5 



FFC6 
FFC7 



FFC8 
FFC9 



FFCC 
^FCD 



JFFCE 
FFCF 



3 FDO 
?FD1 



^FD2 
FFD3 



FFD4 
£fD5 



]'FD6 

]'FD7 



^FD8 
^FD9 



I'FDA 
FFDB 



FFDC 
FFDD 



FFDE 
FFDF 



VO 



VI 



Mode 
Control 



V2 



FO 



Fl 



Display 
Offset 



F2 



F3 



F4 



F5 



F6 



PI 



RO 



Rl 



MO 



Ml 



TY 



Display 



Binary) 











I 

I I I 
I I I -G3C 
I I -G3R 
I -G6R,G6C 
-N.U. 



TT 
i I i 

I | AI,AE,S4,S6 
|-G1C,G1R 
-G2C 



-G2R 



Address of 
Upper-left- 
most display 
element = 
3000|1/ 2k 
offset) 



Page #1 ( = 0) 



CPU 
Rate 



Memory 
Size 



[Transparent 



refresh) 



Map 
Type ' 



= 0) 



T 



I I I 

| I 0.9 MHz only 

1-0.9/1.8 MHz 
J -N.U. 
-N.U. 



4k 



L6k 
-32/ 64k 
-N.U. 



Dynamic 
RAMs 
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Tokens for CoCo, 


Dragon 32 and MC- 10 








HEX 


DEC 


COCO 


DBL 


DRAG 


DBL 


MC-10 


80 


128 


FOR 


SGN 


FOR 


SGN 


FOR 


81 


129 


GO 


INT 


GO 


INT 


GOTO 


82 


130 


REM 


ABS 


REM 


ABS 


GOSUB 


83 


131 


■ 


USR 


■ 


POS 


REM 


84 


132 


ELSE 


RND 


ELSE 


RND 


IF 


85 


133 


IF 


SIN 


IF 


SQR 


DATA 


86 


134 


DATA 


PEEK 


DATA 


LOG 


PRINT 


87 


135 


PRINT 


LEN 


PRINT 


EXP 


ON 


88 


136 


ON 


STR$ 


ON 


SIN 


INPUT 


89 


137 


INPUT 


VAL 


INPUT 


COS 


END 


8A 


138 


END 


ASC 


END 


TAN 


NEXT 


8B 


139 


NEXT 


CHR$ 


NEXT 


ATN 


DIM 


8C 


140 


DIM 


EOF 


DIM 


PEEK 


READ 


8D 


141 


READ 


JOYSTK 


READ 


LEN 


LET 


8E 


142 


RUN 


LEFTS 


LET 


STRS 


RUN 


8F 


143 


RESTORE 


RIGHTS 


RUN 


VAL 


RESTORE 


90 


144 


RETURN 


MIDS 


RESTORE 


ASC 


RETURN 


91 


145 


STOP 


POINT 


RETURN 


CHRS 


STOP 


92 


146 


POKE 


IN KEYS 


STOP 


EOF 


POKE 


93 


147 


CONT 


MEM 


POKE 


JOYSTK 


CONT 


94 


148 


LIST 


ATN 


CONT 


FIX 


LIST 


95 


149 


CLEAR 


COS 


LIST 


HEX 


CLEAR 


96 


150 


NEW 


TAN 


CLEAR 


LEFTS 


NEW 


97 


151 


CLOAD 


EXP 


NEW 


RIGHTS 


CLOAD 


98 


152 


CSAVE 


FIX 


DEF 


MIDS 


CSAVE 


99 


153 


OPEN 


LOG 


CLOAD 


POINT 


LLIST 


9A 


154 


CLOSE 


POS 


CSAVE 


INKEYS 


LPRINT 


9B 


155 


LLIST 


SQR 


OPEN 


MEM 


SET 


9C 


156 


SET 


HEXS 


CLOSE 


VARPTR 


RESET 


9D 


157 


RESET 


VARPTR 


LLIST 


INSTR 


CLS 


9E 


158 


CLS 


INSTR 


SET 


TIMER 


SOUND 


9F 


159 


MOTOR 


TIMER 


RESET 


PPOINT 


EXEC 


A0 


160 


SOUND 


PPOINT 


CLS 


STRINGS 


SKIPF 


A1 


161 


AUDIO 


STRINGS 


MOTOR 


USR 


TAB( 


A2 


162 


EXEC 


CVN 


SOUND 




TO 


A3 


163 


SKIPF 


FREE 


AUDIO 




THEN 


A4 


164 


TAB( 


LOC 


EXEC 




NOT 


A5 


165 


TO 


LOF 


SKIPF 




STEP 


A6 


166 


SUB 


MKNS 


DEL 




OFF 


A7 


167 


THEN 


AS 


EDIT 




+ 


A8 


168 


NOT 




TRON 




- 


A9 


169 


STEP 




TROFF 




* 


AA 


170 


OFF 




LINE 




/ 


AB 


171 


+ 




PCLS 




A 


AC 


172 


- 




PSET 




AND 


AD 


173 


* 




PRESET 




OR 


AE 


174 


/ 




SCREEN 




> 


AF 


175 


A 




PCLEAR 




= 


BO 


176 


AND 




COLOR 




< 


B1 


177 


OR 




CIRCLE 




SGN 


B2 


178 


> 




PAINT 




INT 


B3 


179 


= 




GET 




ABS 


B4 


180 


< 




PUT 




USR 


B5 


181 


DEL 




DRAW 




RND 


B6 


182 


EDIT 




PCOPY 




SQR 


B7 


183 


TRON 




PMODE 




LOG 


B8 


184 


TROFF 




PLAY 




EXP 


B9 


185 


DEF 




DLOAD 




SIN 


BA 


186 


LET 




RENUM 




COS (Continued on next page) 
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BB 


187 


LINE 


BC 


188 


PCLS 


BD 


189 


PSET 


BE 


190 


PRESET 


BF 


191 


SCREEN 


CO 


192 


PCLEAR 


C1 


193 


COLOR 


C2 


194 


CIRCLE 


C3 


195 


PAINT 


C4 


196 


GET 


C5 


197 


PUT 


C6 


198 


DRAW 


C7 


199 


PCOPY 


C8 


200 


PMODE 


C9 


201 


PLAY 


CA 


202 


DLOAD 


CB 


203 


RENUM 


CC 


204 


FN 


CD 


205 


USING 


CE 


206 


DIR 


CF 


207 


DRIVE 


DO 


208 


FIELD 


D1 


209 


FILES 


D2 


210 


KILL 


D3 


211 


LOAD 


D4 


212 


LSET 


D5 


213 


MERGE 


D6 


214 


RENAME 


D7 


215 


RSET 


D8 


216 


SAVE 


D9 


217 


WRITE 


DA 


218 


VERIFY 


DB 


219 


UNLOAD 


DC 


220 


DSKINI 


DD 


221 


BACKUP 


DE 


222 


COPY 


DF 


223 


DSKI$ 


EO 


224 


DSKO$ 



Information was gleaned front thfe 
following sources in addition %^ : 
to personal observation: ':':','; 



Color Computer News,. 

The Rainbow 

80 Micro 

John Beckett 

John Steiner 

Ralph Termy 



TAB( 

TO 

SUB 

FN 

THEN 

NOT 

STEP 

OFF 

+ 



/ 

A 

AND 
OR 
> 

< 

USING 



TAN 

PEEK 

LEN 

STR$ 

VAL 

ASC 

CHR$ 

LEFTS 

RIGHTS 

MIDS 

POINT 

VARPTR 

IN KEYS 

MEM 



JMCftO 



wmmmmmm® 



Ver. 2 For your APPLE II/II+ 



The complete professional software system, that meets 
ALL provisions of the FORTH-79 Standard (adopted Oct. 
1980). Compare the many advanced features of FORTH- 
79 with the FORTH you are now using, or plan to buy! 



FEATURES 



OURS OTHERS 



79-Standard system gives source portability. YES 

Professionally written tutorial & user manual 200 PG. 

Screen editor with user -definable controls. YES 

Macro-assembler with local labels. YES 

Virtual memory. YES 

Both 13 & 16-sector format. YES 

Multiple disk drives. YES 

Double-number Standard & String extensions. YES 

Upper/lower case keyboard input. YES 

LO-Res graphics. YES 

80 cblumn display capability YES 

Z-80 CP/M Ver. 2.x & Northstar also available YES 

Affordable! $99.95 

Low cost enhancement option : 

Hi-Res turtle-graphics. YES 

Floating-point mathematics. YES 

Powerful package with own manual , 

50 functions in all, 

AM951 1 compatible. 

FORTH-79 V.2 (requires 48K & 1 disk drive) $ 99.95 
ENHANCEMENT PACKAGE FOR V.2 

Floating point & Hi-Res turtle-graphics $ 49.95 

COMBINATION PACKAGE $139.95 
(CA res. add 6% tax: COD accepted) 



MicroMotion 

12077 Wilshire Blvd. #.506 
LA., CA 90025 (213)821^340 
Specify APPLE. CP/M or Northstar 
Dealer inquiries invited. 
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MFOR YOUR APPLE II 

^0* Industry standard products at super saver discount prices 



SOFTWARE 

ARTSCI List 

Magicalc $149.00 

Magic Window 99.00 

ASHTON TATE 

DBASE (apple) 700.00 

BRODERBUND 

Payroll $395.00 

Acct/Rec 395.00 

Arcade Machine 59.95 

Choplitter 34.95 

Seafox 29.95 

Galaxy Wars 24.95 

DATAMOST 

Property Mgr $295.00 

Real Estate 

Investment Package 179.95 

Tax Beater 129.95 

Zaxxon 39.95 

Casino 39.95 

Conquering Worlds 29.95 

Mating Zone 29.95 

Pandoras Box 29.95 

Series Baseball 29.95 

INFOROM 

Zork 1,2,3 $ 39.95 

Planet Fall 49.95 

Starcross 39.95 

PEACHTREE 

Peachcalc $150.00 

PeachPak(G1/Ar/Ap/) ... 395.00 
Mailing List Mgr 250.00 

SENSIBLE SOFTWARE 

Medical dictionary $ 99.95 

DOS Plus 25.00 

Legal Dictionary 99.95 

SIR TECH SOFTWARE 

Legacy of Llylgamyn $ 39.95 

Wizardry 49.96 

Galactic Attack 29.95 

SIRIUS 

Bandits $ 34.95 

Epoch 34.95 

Fly Wars 29.95 

Beer Run 29.95 

Outpost 29.95 

Snake Byte 29.95 

Sneakers 29.95 

Joy Port 49.95 

STRATIGIC SIMULATIONS 

Germany $ 59.95 

North Atlantic 1986 59.95 

Rapid Deployment 

Force 34.95 

Road to Gettysburg 59.95 

Computer Baseball 39.95 

Computer Quarterback .. 39.95 

Bomb Alley : 59.95 

Napoleons Campaigns . . . 59.95 



SGC 
$ 99.00 
65.95 

449.00 

$255.95 
255.95 
39.95 
24.95 
20.95 
20.95 

$194.95 

118.95 
89.95 
27.95 
27.95 
20.95 
20.95 
20.95 
20.95 

$ 27.95 
32.95 
27.95 

$ 92.95 
226.95 
151.95 

$ 72.95 
18.95 
72.95 

$ 27.95 
34.95 
21.95 

$ 24.95 
24.95 
20.95 
20.95 
20.95 
20.95 
20.95 
37.95 

$ 39.95 
39.95 

25.95 
39.95 
28.95 
28.95 
39.95 
39.95 



SPECIAL AND NEW 

ALBERT COMPUTER 

64K Ram Upper and lower case character set, 
digitized audio control, RGB graphics, Graphics 
power pad, 110/220 volts, 8 to 32 dc power 
source, Magicalc, Magic Window, Magic Speller, 
Magic Writer. 
Special Price $1395.00 

"New" from Prometheus Products 

PRO MODEM 1200 Bell 212A 1200/300 Baud 

A. Can be expanded into a telecommunication 
system as a stand-alone package. 

B. Real time clock and calendar 

C. Help Commands 

D. Built-in diagnostics 

E. Auto dialer 

F. Programmable Intelligent Dialing 

G. RS 232 interface 

H. Internal Power Supply 

OPTIONS 

On line phone directory 

Expandable buffer from 1 6K to 64K 

SPECIAL $ 475.00 

FRANKLIN ACE 1000 

64K, 2 disk drives, monitor, 80 column card 
SPECIAL $1499.00 

PROMETHEUS PRODUCTS 

16KCard $ 65.00 

64K Expand-A-Ram $ 225.00 

128K Expand-A-Ram $ 275.00 

Graphitti Card 

(Specify Printer) $ 89.00 

P.S.16K Buffer Card 

Expandableto 64K $ 105.00 

Applesurance Card $ 99.00 

VersaCard Four cards in one 

1 . Serial 2. Parallel 3. Real Time clock and 

calendar 4. BSR Port $ 169.00 

With Graphics $ 203.00 

PRT-1 Printer Card $ 79.00 

PRINTERS 
NEC 8023 $ 395.00 

with interface 

card and cables $ 449.00 

0KI82A 

80col./120cps $ 439.00 

OKI 83A 

136col./120cps $ 695.00 

Brother 

Letter Quality $ 889.00 

Transtar315 

ColorPrinter $ 469.95 

ACCESSORIES 

T.G. Joystick $ 39.95 

Select a Port $ 39.95 

System Saver Fan $ 69.95 

Super Fan 11 $49.95 

Slimline Disk Drives $ 225.00 

Disk Drives Full Ht $ 195.00 

Floppy Disc Box 10 $ 25.00 

Floppy Disc w/order $ 19.90 



BUSINESS SPECIAL 

Includes 80 Column Z-80 Card • 16K Card • 

Wordstar • Supercalc 

Special $825.00 

D.O.S. Programming SPECIAL 

80 Column Card • Magicalc • Magic Window • 
Magic Speller • 16K Card Special . . $449.00 

3-CARD SYSTEM 

80 col/1 6K card/Z-80 card Special . . . $329.95 

MODEMS 

Smartmodem 300 $219.95 

Smartmodem 1200 $499.00 

D-Cat Modem $164.00 

MONITORS 

Nee Green $110.00 

Taxan Amber $129.95 

Taxan RGB color $395.00 

USI Hi/Res green $141.95 

80 COLUMN CARDS 

SmartermH $129.00 

Videx Video Term $215.00 

Ultra Term $289.00 

View Master $141.95 

Apple He 64K, 80 col $ 99.00 

Z-80 CARDS 

Microsoft Softcard $229.95 

Z-80 Plus $125.00 

Z-Card 1 1 $131.95 

EDUCATIONAL SOFTWARE 

Spelling/Reading Primer $ 29.95 

Perception $ 20.95 

Counting Bee $ 23.95 

Word Scrambler $ 15.95 

Fractions $ 36.95 

Intro. Algebra $ 21.95 

Frenzy/Flip Flop $ 25.95 

Wordstar $244.95 

Spellstar $159.95 

WStar/MMerge $395.00 

WStar/SStar $422.00 

Supercal $129.95 

PSF File $ 88.75 

PSF Graph $ 88.75 

PSF Report $ 88.75 

PSF3PAK $246.75 

All equipment shipped factory fresh. Manufacturers' warranties 
included. California customers add 6'A% tax. Include payment by 
persona) check, money order, or cashier's check with order and 
SGC will pay shipping charge. Call for amount of shipping charge 
when paying by credit card. 

All items are normally in stock 

415)490-3420 

... And we'll be here to help afteryou 

receive your order. Feel free to call the SGC 

^» Technical Staff for assistance. 

sec 

Tlic mail order specialists 

342 Quartz Circle, Livermore, CA 94550 
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CoCo Bits 



by John Steiner 

This month we will take a look at 
interfacing the Color Computer 
to a disk drive. Last month I pro- 
mised a new phone number for the 
Dakota Database. It is 701-281-0233, 
and is available 24 hours a day, except 
for maintenance. Since mid-July, we 
have logged over 1000 calls, and have 
nearly fifty regular users. Most of the 
users have computers that are not 
CoCos. Lots of Osbornes and IBM 
machines check in daily, in addition to 
Model Ills and several CoCos. There 
are even a few data terminals who 
make a regular appearance. 

64K COCO 

I have had a chance to check out the 
new 64K CoCo, and find it to be not 
much different from the older units. 
The new keyboard is nice, and is really 
the same style board with new keycaps. 
I like both keyboards very well, and 
prefer the new one, but those who like 
a longer throw on the keys should look 
into the Mark Data model, or one of the 
other professional keyboards. 

The formatting problem I was work- 
ing on last month has been solved. I 
found my drives to be out of time, just 
as was suggested to me. My drive zero 
was way off, and that was probably the 
majority of my initialization problems 
with the 1.1 ROM card. The ROM 
works well with either computer, and 
my old drives are purring again. 

Interfacing a Drive Unit 

I promised a look at drive interfac- 
ing with the CoCo, so let's take a look 
at what is required. First of all, any 
standard Model III drive will work on a 
CoCo if it or the cable has been con- 
figured properly. This opens up a wide 
market for drive selection, and CoCo 
users can either shop for price or qual- 
ity or both. My BBS has two Tandon 
TM-100 drives which have performed 
24 hours daily for over three months 
with no I/O errors. On top of that, they 
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are quiet, far quieter than the TEC 
drive that Radio Shack sells. I have also 
used the Teac drive units from J&JvI, 
and find them to be just as quiet as the 
Tandon. JSUvI feels the Teac drive is 
better for CoCo than the Tandon, but 
as a practical matter, either seem to 
work fine. 

The Tandon drive is a popular unit, 
and available from many sources, so we 
will look at installing these units. The 
first requirement is a controller board. 
There are several different brands 
available, but only two that I know of 
that are compatible with the Radio 
Shack format. These are Shack's card 
and the J&M controller which I have 
talked about earlier. The Radio Shack 
card is available as a replacement part, 
and you can order a replacement case, 
putting a complete controller together. 

The next requirement is a drive 
cable, which can be ordered from Radio 
Shack, or you can use any external 
drive cable for a Model HI if you con- 
figure your drives (see below). Drive 
cables are available either in two or 
four drive versions. The Color Com- 
puter drive cables are configured, 
which means that the cable determines 
which drive becomes drive zero, and 
which becomes drive one, etc. Many 
companies configure the drives, in- 
stead. Configuring the cables allows 
you to swap drives zero and one at any 
time without internal modification of 
the units. On the other hand, it is 
easier to configure the Tandon drive 
unit, than to configure the cable. 

You can buy the configured cable 
from Radio Shack, or you can order an 
unconfigured cable from the place 
you get your Tandon drive units. My 
recommendation is to order a cable 
from the drive supplier that has 
gold plated connectors and configure 
your drives. 

The Tandon TM-100 is a forty track 
single sided, double density drive. Hav- 
ing forty tracks is of no value to RS- 
DOS, which writes only to 35 tracks 
anyway, however if you have FLEX or 
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another operating system, you may be 
able to use those tracks by formatting 
your diskettes for forty track use. In 
FLEX, the NEWDISK command will 
allow you to specify number of tracks 
when it initializes a diskette. 

Tandon sells their drives without 
case and power supply, so be sure to 
ask about this before you buy a drive 
unit. A bare drive can be found for 
around $200, and a case and power sup- 
ply will cost about $50.00. The Dakota 
Database drive units are housed in a 
two drive case which cuts down on cost 
and space. If you are planning on two 
drives, you might look into that 
combination. 



Drive Configuration 

Configuring a Tandon drive is easy. 
The configuration process allows the 
controller card to distinguish between 
drive units. On the Tandon, the con- 
figuration is done by jumpering a pro- 
grammable shunt socket. This 16 pin 
IC socket is located toward the right 
rear of the circuit board near the drive 
connector (See figure 1). Some com- 
panies provide a DIP shunt which is 
sitting in the socket, while others leave 
you to your own devices. If you did not 
receive a shunt, a common staple will 
perform the job quite satisfactorily. 
Figure two is a diagram and pinout of 
the socket. 

Configuration is easy. Make sure to 
connect pins 9 and 8 together. This is 
done on all drives. To configure a drive 
as drive 0, connect pins 2 and 15. Drive 
1 requires connections between 3 ant 
14. Drive 2 connections are to pins 4 
and 13, while drive 3 connections are 
made to pins 5 and 12. Make sure no 
other pins are connected, except 9 and 
8 and the desired drive number pins. 
Figure two shows the illustration for a 
drive 0. Once a drive is configured it 
can be used as that drive with either a 
configured or non-configured cable. To 
use a drive with a configured cable, just 
connect it as above. Configuration can 
be changed at any time, should you 
desire to switch drives. 

One last comment, there is a ter- 
minator socket (marked 2F) on the cir- 
cuit board, located near the edge con- 
nector. This contains a termination 
resistor pack. Remove the pack from 
the socket on drive 0, and any in- 
termediate drives. Leave it in the last 
drive on the line. I have heard con- 
(Continued on next page) 
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Figure 1 
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itis insured? 

SAFEWARE™ Insurance provides full 

replacement of hardware, media and 

purchased software after a low #50 deductible. 

As little as $35/yr covers: 

• Fire • Theft • Power Surges 

• Earthquake • Water Damage • Auto Accident 

Select the coverage you want from the table. 

Amount of Insurance Annual Premium 



Up lo$ 2.000 


$35 


$ 2.001-$ 5.000 


$ 60 


$ 5.001-$ 8.000 


$ 75 


$ 8.001-$11.000 


$90 


$U.001-$H.OOO 


$105 



Call for higher coverages 

Not avail in AK PC. HI. KY M \1K. MS. NV, SC. or WY. 

Call for immediate protection. 

1-800-848-3469 

(In Ohio call 1-800-848-2112) 



COLOMBIA NATIONAL GENERAL AGENCY 



Listing 1 

5 REM TAPE UTILITY 
PATCH TO PROVIDE CON- 
TINUOUS CASSETTE READ 
7 REM BY KEN 
CHRISTIANSEN 
10 POKE &H0DF7.&H96 
20 POKE &H0DF8.&H0 
30 POKE &H0DF9.&H0B7 
40 POKE &H0DFA.&H0FF 
50 POKE &H0DFB.&H20 
60 POKE &H0DFO&H0BD 
70 POKE &H0DFD.&H0A9 
80 POKE &H0DFE.&H9E 
90 POKE &H0DFF.&H39 
100 POKE &H14E0.&H12 
110 POKE &H14E1.&H12 
120 POKE &H14E2.&H12 
130POKE&H14E3.&H12 
140 POKE&H14E4.&H12 
150 POKE &H14E5.&H12 
160 POKE&H14E6.&H12 
170 POKE &H14E7.&H0BD 
180 POKE&H14E8.&H0D 
190 POKE &H14E9.&H0F7 
200 POKE &H1514.&H7E 
210 POKE&H1515.&H14 
220 POKE&H1516.&H63 
230 POKE&H1288.&H7E 
240 POKE &H1289.&H12 
250 POKE &H128A.&H22 
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flicting information from different 
sources about this pack, with some 
people telling me it can be omitted 
from all drives. We have left it in our 
drive 1 without noting any adverse ef- 
fects. If you have any information 
about this pack, drop me a line, we will 
pass it along. 

We have installed several Tandon 
drive systems on both CoCo and J&M 
cards, and have had no problems If you 
would like assistance or more informa- 
tion about drives, etc.; give me a call, 
or drop me a line. I will be glad to 
help. Send a stamped return envelope 
for a reply. 

Tape Utility 

One of the most used utilities in my 
software collection has been TAPE 
UTILITY from Spectrum Projects. The 
program is designed to make it easy to 
copy files from tape to tape, tape to 
disk, and vice versa. The programs 
most useful function is a disk to tape 
backup. The command BAC is used to 
transfer all disk files on a given disk to 
tape. Operation from that point is un- 
attended, and in a little while, all disk 
files are on tape. There are commands 
to copy individual files from one media 
to the other, and a set of directory com- 
mands that allow printed and screen 
directories of both the disk and tape. 

There is a tape to disk command 
that will copy the next tape file to disk, 
and present you with an option to con- 
tinue or exit. The command works 
well, however if you want to dump an 
entire tape to diskette, you have to be 
around to prompt the computer to read 
in the next file. Ken Christiansen of 
Fargo, ND passed along the following 
patch that will bypass the prompt and 
allow the computer to continue to read 
in tape files. The only disadvantage to 
this is that when the tape is finished, 
you have to stop the program with the 
RESET key. 

If you are interested in a patch that 
will allow the program to work with 
disk 1.1 ROM, drop me a line with an 
SASE and cassette. Ken will give you a 
BASIC program to patch UTIL. Spec- 
trum Projects tells me their latest ver- 
sion now checks for the ROM and will 
operate properly with either ROM in- 
stalled. Two things Tape Utility will 
not do are copy protected programs or 
copy segmented binary files. It will 
copy any binary file that was created 
using CSAVEM. iMCRO™ 

You may contact Mr. Steiner at 508 
Fourth Ave. NW, Riverside, ND 58078. 
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P.O. Box 4364 
Flint, Michigan 48504 
(313) 233-5731 
(313) 233-3125 



ZANIM 

SYSTEMS 




HOME CONTROL AT YOUR FINGERTIPS 



The ZCM-1 is the Master Control module that provides the interface between your computer and our 
line of Zanim Application Modules. Up to 15 Application Modules can be piggy-backed to the ZCM-1 
Master Control module. The ZCM-1 is compatable with any standard RS-232 (serial) interface. A special 
Master Control module, the ZCM-1V is available for the VIC-20 and Commodore-64 computers. 

*The ZCM-1 V is available for VIC-20 and C-64 users. 



ZAM-1 is the home control interface module that provides a fully versatile computer controlled en- 
vironment. ZAM-1 can control up to 256 different lamps and appliances in your home or business pro- 
viding you with an effective and easy to implement energy management and electric control system. 
No special modifications are necessary to your building as all control signals are sent over your ex- 
isting wiring. ZAM-1 can be programmed in BASIC or optional home control software is available. 
ZAM-1 requires one ZCM-1 Master Control module. 

*The ZCM-1/ZCM-1V Master Control module is required to use the ZAM-1 Home Control module. 



The ZAM-2 allows your computer to continuously monitor up to 15 different doors or windows around 
your home or business. ZAM-2 is a basic building block in a complete computer controlled home securi- 
ty system. With our ZAM-1 Home Control module, you can have a fully integrated security and en- 
vironment control system. Upon an intrusion, your computer can take the action most appropriate, 
whether that is to ring an alarm bell, flash all the lights around your home, or dial the police. 

'The ZCM-1/ZCM-1V Master Control module is required to use the ZAM-2 Security module. 



The ZAM-3 is a complete telephone answering and dialing system. It is capable of taking the phone 
off-hook and dialing a number under computer control or of answering the phone when it rings. With 
the ZAM-1 Home Control module and the ZAM-2 Security module, the ZAM-3 Phone Dialer module 
can be integrated into a complete home or business security/monitoring system. Applications include 
security, auto phone dialing, and computer-answering systems. 

'Pulse dialing option is available as ZAM-3P. 

•The ZCM-1/ZCM-1 V Master Control module is required to use the ZAM-3/ZAM-3P Phone Dialer module. 






SERIAL OR PARALLEL 
(CENTRONICS) PORT SWITCHER 



^SsPfWi 




DOES YOUR COMPUTER 
4^ LOOK LIKE THIS? 

A PORT SWITCHER NOW 
AVAILABLE FOR YOUR 
COMPUTER (ZSW1) 



Device A- 
Oevice B- 



-Common 




P.O. BOX 4364 

Flint, Michigan 48504 

(313) 233-5731 

(313) 233-3125 



□ Please send me more information or catalogue! 



Name_ 



Company 

Address 

City 



. State, 



Zip. 



What Make/Model Computer do you own? 



APPLE 11 IS TRADEMARK OF APPLE COMPUTERS, INC. 

CP/M IS REGISTERED TRADEMARK OF DIGITAL RESEARCH, INC, 



TRS - 80 IS REGISTERED TRADEMARK OF TANDY CORP 
VIC - 20 AND COMMODORE - 64 ARE REGISTERED TRADEMAF 'S OF COMMODORE. INC 
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Product Name: 
Equip, req'd: 
Price: 
Manufacturer: 



C.C. Calc Disk Version 

TRS-80 Color Computer 32K 
$25.00 tape or disk 
Transformation Technologies 
194 Lockwood Lane 
Bloomingdale, IL 60108 



Description: C. C. Calc is an electronic spreadsheet for the 
Color Computer. The program provides many of the 
spreadsheet features found on much more expensive soft- 
ware packages. The spread sheet is 26 x 26, which allows 
676 cells. Like most spreadsheets, cells can contain labels, 
formulas or values. One powerful feature is the ability of a 
cell to contain both a label and a value. This effectively 
gives a larger sheet as formulas can be hidden under labels. 
The smaller size and format allows the personal computer 
user access to a power spreadsheet. 

Pluses: One sheet can be merged with another, allowing 
the creation of larger effective files. Program documenta- 
tion includes data file configuration, allowing you to read 
and write data in your own BASIC programs. Files on the 
disk version can be loaded with only a single key. The pro- 
gram is very powerful considering its low purchase price. 

Minuses: Recalculations are not done automatically, you 
must recalculate each time data is changed. Because the 
program is in BASIC, recalculation takes a minimum of 
eight seconds. Parentheses are not evaluated within for- 
mulas, so care must be exercised as to proper formula layout. 

Documentation: Seventeen pages of documentation and 
two sample spreadsheets accompany the software. The 
documentation is thorough, and allows the creation of 
usable spreadsheets in a short period of time. Users of 
Visicalc will find many similar commands and capa- 
bilities, only on a smaller scale. 

Skill level required: Though I have never used a spread- 
sheet program before, I was easily tutored, and found 
operation of the program quite easy to learn and use. 

Reviewer: John Steiner 



Product Name: Disassembler for 6809 



Equip, req'd: 

Price: 

Manufacturer: 



Author: 



6809 computer w/Flex 

$75.00 

Granite Computer Systems 

Route 2 Box 445 

Hillsboro, NH 03244 

Gilman C. Shattuck 



Description: A menu driven 6809 disassembler with user 
symbol tables. Creates source files compatible with the 
TSC Editor/Assembler. Output can be to the screen, 
printer, disk or tape. It has look-up table for Flex and 
Monitor references, local and global labels and expres- 
sions, and equate table for all external references. There is 
an option for single-step disassembly, data areas are user 
definable, the program is supplied on 5 or 8 inch disks 
or tape. 

Pluses: The disassembler is menu driven making the use 
simple and direct. The program is very fast and offers 
many options for changing data areas, labels, equates, and 
output. The output listing is the same format as the TSC 
Assembler and the disk output can be used as input for the 
assembler. Input is carefully screened to eliminate mistakes. 



Minuses: You must have the program loaded before calling 
the disassembler. 



Documentation: The 12 page guide is well written, 
although a little brief. It describes the menu functions, 
gives some hints on disassembly and lists some references 
for more in-depth study. 

Skill level required: The documentation assumes 
familiarity with 6809 machine language programming. 



Reviewer: Phil Daley 



Product Name: TRS-80 Model 100 portable computer 

Equip, req'd: 4 AA batteries ($3.00) 
Price: 8K $799, 24K $999 

Manufacturer: Tandy Corporation 
Fort Worth, TX 

Description: Gets my vote for product of the year! A truly 
useful portable computer. Includes all needed software and 
hardware interfaces for effective use alone or with other 
computers. 90 day limited warranty. Highly recommended. 

Pluses: CMOS 80C85 processor and memory allows up to 
20 hours of operation at 2.4MH without a cord. Large 8 
line by 40 column LCD display is easily usable indoors and 
out. Includes full-size full-stroke keyboard, able to 
generate all ASCII codes, character and high-resolution 
graphics, and emulate a numeric keypad. Alpha lock, func- 
tion keys, and cursor controls also supported. Interfaces 
include a 300 cursor controls also supported. Interfaces in- 
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elude a 300 baud modem (direct connect cable $20, 
acoustic coupler planned), RS232 and Centronics parallel 
ports (cable $15), and a 1500 baud cassette interface (cable 
$6), as well as sockets for added RAM, ROM and an expan- 
sion bus . 

Software is fully integrated, menu-driven and sup- 
ported by function keys, providing ease-of-use comparable 
to Apple's "LISA" at l/10th the price. The built-in word 
processor is simple but elegant, with all needed features. 
The smart terminal is entirely adequate for even serious 
use, as is the highly-extended Microsoft BASIC. A 
primitive address list and notebook are also included. 

Minuses: Cursor controls are not supported from BASIC, 
and line-feeds after carriage returns are not selectable. The 
quick reference manual and the LCD display could use 
protective covers, and a built-in microcassette recorder 
and TV output would be welcome. 

Documentation: Comes with a tiny quick reference 
manual and large spiral-bound user guide with index. In- 
cludes enough information in the first few pages to use all 
programs effectively, and covers all details of use later in a 
format that is ideal for reference. Does not attempt to 
teach BASIC to beginners. 

Skill level required: My 7 year old used it easily the first 
day. What more can I say? 

Reviewer: Jim Strasma 



Product Name: 64K Disk Utility Package 

Equip, req'd: TRS-80 Color Computer Disk 

system 64K 
Price: $21.95 + $3.00 shipping 

Manufacturer: Spectrum Projects 

93-15 86th Drive 

Woodhaven, NY 11421 

Description: The 64Kdisk utility package is a collection of 
three useful programs for the 64K Color Computer. Now 
that Tandy is producing a 64K compatible computer, and 
many users are upgrading their machines to support 64K, 
commercial software is starting to use the capacity. The 
program includes 40K, ROMCRACK, and a print spooler. 
40K is a program that moves BASIC from ROM to RAM, 
and relocates it so that your BASIC programs have access 
to larger data areas. ROMCRACK will transfer ROMpacks 
to disks, and the software spooler will allow you to run 
and use BASIC while the printer is getting spooled output 
from a buffer in upper memory. 

Pluses: 40K provides extra data storage area for large string 
arrays, etc. The print spooler will allow you to continue 
programming or working with your computer while print- 
ing from a large buffer in the upper RAM. ROMCRACK will 
transfer most ROMpacks to disk with very little hassle. 

Minuses: 40K has a limiting factor in program size, and 
the extra memory must be used as variable and string 
space, or the program could crash. The print spooler works 

(Continued on next page) 
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Dealer 

Inquiries 

Invited 



COMPLETE PRODUCT LINES FOR 
D.C. Hayes • HDE • Microsoft • Nashua • Okidata 

APPLE • FRANKLIN • IBM-PC/XT 

We carry many products at competitive prices to expand these fine computers. 
Request Catalog No. AFP* 

HDE • AIM • SYM • KIM 

HDE hardware and software for ASK, DLC, OMNI-65 systems 

KIM replacement modules (1K — 4K) and keyboards 

AIM-65 (1K — 4K) and accessories. Request Catalog No. TASK* 



Professional Workmanship 
Guaranteed Repairs 
Quick Turn-around 



COMPUTER REPAIR SERVICE 

Apple 



PET 



AIM 



Franklin 
SYM 



HDE 



Atari 
KIM 



Perry Peripherals 



'Catalogs 

AFP $2.00 TASK $1.50 
Catalog price refunded 
with first order 



Repair Center 

6 Brookhaven Drive 

Rocky Point, NY 11778 



Orders 
P.O. Box 924 (51 6) 744-6462 

Miller Place NY 11764 9AM— 5PM Weekdays 



No. 67 - December 1983 



MICRO 



77 



ZZTRS80C z 

well with three reservations, it must be available by the 
time you read this. It slows the computer down, programs 
run slightly slower. Lastly, the program data being spooled 
must use BASIC'S character output routine (not usually a 
problem). ROMCRACK won't handle some ROM packs 
that test to see if the program is residing in RAM before ex- 
ecuting. Some packs fit this category. 

Documentation: A single sheet of information instructs 
thoroughly in the operation of the three utilities. 

Skill level required: These utilities are for the average 
BASIC programmer, no great skills are required of the user. 

Reviewer: John Steiner 



Product Name: Disk COLORCOM/E Smart Terminal 



Equip, req'd: 

Price: 
Manufacturer: 



Software 

TRS-80/TDP 100 Color 
Computer/MODEM 
$49.95 + $2.00 shipping 
Eigen Systems 
P.O. Box 10234 
Austin, TX 78766 



Description: The Disk COLORCOM/E Smart Terminal 
program is a sophisticated terminal program that supports 
up/down loading, disk files, and a full complement of 
RS-232 functions and features. 



Pluses: The program is easy to use, and very sophisticated. 
It is menu driven, and the user can set up just about every 
possible printer/modem computer parameter desired. All 
127 ASCII codes may be sent from the keyboard. The 
receiver buffer can be opened for saving of data, and closed 
as desired if you decide to eliminate excess information 
from your disk. The software handles graphics characters 
easily, and does an impressive job on Spectrum Projects 
BBS graphics displays. Initialization files can be saved and 
loaded for maximum convenience. 

Minuses: The software comes on a copy protected 
diskette, so you must load and run the program from it, 
transferring to a file disk when loading is complete. 

Documentation: A 23-page manual is included that steps 
the user through the program with ease. Some functions 
needed further explanation for me, for example, "capture 
characters". 

Skill level required: The program is easy to leam, and 
beginners can use it with little trouble, ignoring its ad- 
vanced features. As the user becomes more expert, the ex- 
tra capability can be put to use. 

Reviewer: John Steiner 
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THE SYSTEM 



DUAL AC1A BOARD 

Essential for telecommunications. Two 
independent full duplex RS232 channels. Uses 
6551 AClAs. Crystal-driven TTLcbck. Supports 
TTL level or RS232C (+/-12v). Supports all 
standard baud rates to 19,200. Can support 
interrupt -driven I/O. Demonstration source 
code provided. 



® COM-l 
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REAL-TIME 
CLOCK/CALENDAR 

Demonstration software with source 

and data sheet. Uses the OKI 

MSM5832. Provision for user-supplied 

battery backup. 

On board crystal lor accurate 

timekeeping. 

CMOS circuitry ■ Low power Year, 

month, date, day-o(-week, hours, 

minutes & seconds! 12/24 hour - Leap 

Year correction 4 interrupt rales 

available. 

CLK-l $60 
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I/O EXPANSION BOARD 

For microcomputers that use 6*522 VlAs lor I/O and do 
not provide full address decodijig on board. This board 
has physical space for four additional 6522 VlAs, and 
provides additional decoding fir a total of 16 devices. 
Two versions of this board are available. The I/OX- 122 
mounts above, and directly plugs into, an onboard 6522 
socket, and relocates the original VIA to the expansion 
board. Where there are space Imitations, the l/OX- 222 
uses a dip header and an 8" cab|e for remote installation. 



I/O X- 122 $60 



I/OX-222 $72 




Dealer and Distributor Inquires Invited. 

P.O. Box 1019 • Whittier. CA 90609 

(213) 941-1383 



EPROM PROGRAMMER 

Particular combination of hardware and 
software (machine language) used results 
in VERY LOW programming overhead. 
Flexible design; supports future EPROM 
designs. Will program EPROMS up to 
2S6K bits (32K bytes). 
Programs all these EPROMS: 

2508. 2516, 2532. 2564. 2758A. 

2758B. 2716, 27C16, 2732, 2732A. 

27C32, 2764, 27C64, 27128, 

MCM68764 
All personality modules INCLUDED. 
Menu driven program for easy operation. 



PRG-1 



$250 



fljffl 




32K CMOS STATIC RAM BOARD 




Models MB-132/32K. $299 
/16K$241./8K $197 
Features: 

• 200ns Low Power CMOS. STATIC RAM 

• Extends your expansion connector 

• Plug compatible with 2716 EPROMS 

• First 8K are jumper selectable 

• Entire board may be bank-switched 

All boards feature G-10 glass/epoxy. solder 
mask, and gold plated connectors. All boards 
carry a full 1-year limited werranty. When 
ordering specify SYM or AIM version; add S 8i 
H in U.S. and Canada 42.50, overseas S4 00 
(US). Calif, residents add sales tax. I 
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MICRO 
CALC 

by Tom Marshall 



Comments on Atari listings 

Starting this month, our Atari listings are being output on 
the EPSON FX-80 printer. This printer allows redefining 
some or all of the Epson ROM character set. After much 
testing, we arrived at a compromise set of characters. 
Since many of the reversed characters would be difficult to 
read at the size of these listings, we thought that it would 
be clearer for the reader typing these programs into his 
computer to underline the reversed characters. The Atari 
programs that follow utilize this new style of listing. If 
anyone has any comments, pro or con, drop us a line with 
your viewpoint. 



Features: 

>^24 working lines 
►^24 corresponding comment fields 
s support of disk or tape files 
v multiple statement support 
v* BASIC screen editing features 

Operating Instructions 



ESC START 
ESC OPTION 
ESC SELECT 
Shift CLEAR 



performs calculations 
enters file mode 
enters comment field 
clears screen 



Listing 1 

3 REM HCALC 

4 REM 

9 POKE 1 06 , PEEK ( i 06 ? -4 : GRAPH I CS 

10 DIM TBL0<255),STO$i800),DX0(3),DY0(3>,TEHPOti200i 

,0101(25) ,F0*il5> ,H0ti54> ,QH0(20! ,SPACE0* (40) 
20 GOSUB 30000: GOTO 300 

100 GET #l,CO:TYO=TBLO(C0):IF NOT (TY0) THEN 100 Q 
110 ON TYO GOTO 120,130,200,140,160,150,170 
120 POSITION X0,YO:PRINT CHR*(CO);:PO=!YO-l)*4O+X0+i: 

ST0*iP0,P0>=CHR$(CO>:X0=X0+l-LL0MXO=HA]<0): 

G010 100 
130 ?0=XO+I>XO(CO-28!:V'O=Y0+DY0(C0-28): 

IF X0<MAXO-LLO+I THEN X0=MAX0 B 
132 IF X0>HAX0 THEN X0=HAX0-LL0+1 
134 IF Y0<1 THEN Y0=20 
j.3t IF 1 0>20 THEN Y0=1 

138 POSITION K0,Y0:PRINT ">*";:G0T0 100 t 
140 X0=X0-l+LLO*<X0=HAXQ-LLO+l):P0SITI0N X0,Y0: lj 

PRINT ■_* , ;:PO=(Y0-n*4O+X0H:ST0t(P0,P0) = " ": 

GOTO 100 
150 X0=HfiX0-LL0+l:Y0=YO+l-2O*(Y0=20) POSITION X0.Y0: 

PRINT "**";: GOTO 100 
160 POSITION M,t0:PRINT "?"j sX0=X0+i-LL0*«0=MAX0> : 

IF X0OMAX0 THEN PRINT UL0$U,HAX0-X0+1); 
162 P0=(Y0-i)t40+X0:ST0*!P0,P0)="?°:BM0(Y0)=P0: 

POSITION X0,Y0:PRINT '>*";:GOT0 100 
170 POSITION 0,22:PRINT "0 Clear screen: 

fire you sure...?";: GET #1,C0: 

IF CHR*(C0!<> B Y' THEN 300 
172 FOR 80=1 TO 20:P0SITI0N 1,80: 

PRINT UL0t(l,lll;' °jUL0t( 1,25!: NEXT CO 
1/4 ST0*=" ":ST0*(800)=" ":ST0t«21=ST0$:60T0 300 

(Continued on page 82) 
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Hewlett Packard 

Write or call for prices. 



tvi 



SPECIALS on INTREGATED CIRCUITS 



6502 

6502A/6512A 
6520 PIA 
6522 VIA 
6532 

2114-L200 
2716 EPROM 
2532 EPROM 
6116 2KX8 CMOS 
4116 RAM 
4164 RAM 
Zero Insertion Force 



7.45 
8.40 
5.15 
6.45 
7.90 



10/6.95 

10/7.95 

10/4.90 

10/6.10 

10/7.40 

2.45 

4.45 

5.90 

6.45 



50/6.55 100/6.15 

50/7.35 100/6.90 

50/4.45 100/4.15 

50/5.75 100/5.45 

50/7.00 100/6.60 

25/2.30 100/2.15 

5/4.20 10/3.95 

5/ 5.75 

5/ 6.20 




Anchor 
Automation. 
Signalman 
Modems 

FREE SOURCE MEMBERSHIP WITH SIGNALMAN 

All Signalman Modems are Direct Connect and include cables 
to connect to your computer and to the telephone. Signalman 
Modems provide the best price-performance values. 

Dealer and OEM inquiries invited 
Volksmodem |79| 59 

RS232 or Atari Cable lor Volksmodem 9 

Mark VI for IBM Personal Computer (279) 1 79 
Mark VII Auto Dial/Auto Answer (1 59) 99 
Mark XII Smart Model 1200/300 (399) 299 

219 

529 



OC HAYES Smartmodem 

DC Hayes Smartmodem 1200/300 




PROM QUEEN for VIC 
Apple Emulator lor Commodore 64 
STAT Statistics Package lor C64 
Solid Oak 2 Level Stand lor C64 or VIC 

C64/VIC Switch (networking) 

BACKUP VI. tape copier lor C64 or VIC 

CARDBOARD/6 Motherboard - VIC 
CARDBOARD/5 Motherboard - C64 
CARD PRINT G Printer Int with Graphics 
CARO PRINT B Printer Interface— C64/VIC 
CARDBOARD/3s Motherboard - VIC 
CARDCO C64/VIC Calculator Keypad 
CARDRAM/16 RAM Expansion - VIC 
Complete CARDCO Line in stock 
CIE and VIE IEEE Interfaces in stock 
MSO SuperOrhre tor C64 or IEEE 
MAE Assembler for C64 



170 

Call 

95 

29 

125 
20 

64 
56 
72 
40 
22 
32 
44 



365 

50 



APPLE— FRANKLIN ITEMS 



KRAFT Apple Joystick 

Kraft Apple Paddle Pair 

SPINNAKER Software in stock 

Broderbund Software in stock 

16K RAM Card for Apple 

Muftlplan — Microsott 

Solid Oak 2 Lewi Stand for Apple 

Serial Card for Apple 

MCP RAM/80 column card lor Me fAP/TXT) 

Z80 Softcard and CP/M (Microsoft) 

RANA Elite I with Controller 

Parallel Printer Interface/Cable 

Microtek Interfaces in stock 

Apple Dumpling with 16K Buffer 

Grappler + Interface 

Kraft Products for Apple in stock 

DC Hayes Micromodem II 

PFS: File 

PFS: Report 

Videx 80 Column Card 

Hayden Software for Apple 20% OFF 

Apple Blue Book 



40 

30 



59 

1B5 

29 

99 
139 

235 

389 

69 

160 

129 

299 
95 
95 

209 

19 



Seen; 
requir 



iommodore 

for Personal, Business .and Educational 
intents. Educational Discounts available. 



PETSCAN I $245 base price 

Allows yoj to connect up to 30 CBM/PET Computers to 
shared dis < drives and printers. Completely transparent to the 
user. Perfiict for schools or multiple word processing con- 
figurations . Base configuration supports 2 computers. Addi- 
tional computer hookups $100 each. 



impu 

ID 



COM 

Intelligent 

Includes 



/SCIA 



VIC/C64 Switch -Networking 125 

Allows 8 computers to share drive and printer. 



SCREEN MAKER 80 Column Adapter for C 64 145 

Provides big screen capability for business applications . 



VICoetrollir 

combine 



GENESIS Computer Corp 

(lor C64 as well) 50 

with BSR modules for home or business control 

Remote Sensing AdapterforC64 orVIC 35 

Synthesizer lor C64 or VIC 139 

software for text to speech, pitch .etc. 

Real Time Clock with battery backup 45 



COMSENSE 
COM 

include; 

com clo :k 



VIC 20 Pr ducts and Software in stock 
Thorn EMI Software UMI Software 

ABACUS Software HES Seltware 

16< RAM for VIC 64 Vanilla Pilot 



Street Sweepers (VIC) 
Night Rider ( 
Annihilate 
Adventure I 
Educational I 
Strategy F 



(VIC) 

Pack II 
Pack I 
Pack I 



I CUP 



fatal 



r VI : 



RDM I 



PAPER 
ORACLE 
Super Bustard 

Commodore 
MicroChoss 
excellert 
SPINNAKER' 
Compute!' 
C64or 
POWER 
WordPro 
WordPro 4h»- 
SPELLMA5TER 
VISICALC 
PET-TRAX 
SM-KIT 
Programmers 
Calc Result " 
EASYC 

PET Spac^maker 
COPYWI 
2 Meter 
Dust Covet 
CmC Intel laces 



Programmigtke 



Compute 

OMNICALC 

HES 

HES Software 

UMI 



I products 



ACK/STCP 



$115 



Terminal Package for PET, CUM. C64 

Hardware /STCP Software 



27 



VICTORY Software lor VIC and C 64 



12 
11 
16 
16 
11 
16 



Kongo Kong (VIC) 

Cosmic Debris (/IC) 

Adventure Pack I 

Metamorphosis 

Trek 

Grave Robbers 



16 
12 
16 
11 
12 
12 



109 
125 
179 

16 
19 



Word Processor 
Base from Batteries Included 
from Batteries Included 

64 Programmers Reference Guide 
for C 64— 8 levels of play 
graphics and color 
" Software C64, Apple, IBM. Atari 
First Book of PET/CBM 
SWITCH 
Utilities for PET/CBM 
3^/64 with Spdlmaster 
8032,disk, printer 
spelling checker lor WordPro 
for PET, ATARI, or Apple 
PET to Epson 6rapkics Software 
enhanced PET/CBM ROM Utilities 
Toolkit - PET ROM Utilities 
Advanced— C64 
for C64 

il ROM Switch 
Word Processor for C64 
to IEEE or IEEE to IEEE Cable 
for PET, CBM, 4040, or 8050 8 

IADA1800. ADA1 450, SADI in stock) 
PET/CBM (Compute!)— R West 20 
irst Book of VIC 11 

(HES) 79 

M with Software 65 

and Hardware in stock 
ii stock 



RITEH l 

PET 



11 

125 

78 

85 

279 

189 
40 
40 
35 
135 
65 
36 
49 
40 



FlexFile for PET/CBM/ C64 $110 

Database] Report Writer with calculations, Mailing Lists. 



FORTH fl ' PET/C64 full FIG model — Cargill/Riley S50 
Metacomi liler fir FORTH for independent object code 30 



KMMMIASCALIV.1 lor PET/C64 

EARL for PET/CBM Disk-based ASSEMBLER 



99 
65 
45 



Super Gnptn'cs — BASIC Language Eiteisims 

Fast machine language graphics routines for PJT/CBM_ 

RAM/ROMjor PET/CBM 4K $75 8K $ 90 

Commodore PuMc Ooenlo Software for CM 75 




DISK 
SPECIALS 

Scotch (3M) 5" ss/dd 
Scotch (3M) 5" ds/dd 
Scotch (3M) 8" ss/sd 
Scotch (3M) 8" ss/dd 

We stock VERBATIM DISKS 

Write for Dealer and OEM prices. 

Sentinal 5" ss/dd 10/1.90 50/1.85 100/1.80 

Sentinal 5" ds/dd 10/2.55 50/2.50 100/2.45 

We stock Dysan disks 



10/2.20 50/2.00 100/1.95 
10/3.05 50/2.80 100/2.75 
10/2.30 50/2.10 100/2.06 
10/2.85 50/2.70 100/2.65 



Wabash 5" ss/sd 
Wabash 5" ss/dd 
Wabash 8" ss/sd 



10/1.60 50/1.55 100/1.45 
10/1.90 50/1.85 100/1.75 
10/2.00 50/1.95 100/1.85 



We stock MAXELL DISKS 

Write for dealer and OEM prices. 

Disk Storage Pages 10 for $5 Hub Rings 50 for $6 
Disk Library Cases 8"— 3.00 5"— 2.25 
Head Cleaning Kits 1 1 



CASSEHE TAPES— AGFA PE-611 PREMIUM 

C-10 10/ .61 50/ .58 100/ .50 

C-30 _ 10/ .85 50/ .82 100/ .70 

DATASHIELD BACKUP POWER SOURCE $265 

Battery back up Uninterruptible Power Supply with surge and 
noise filtering. The answer to your power problems. 



MnltiPlan— IBM or Apple 

Quadboard for IBM available 

Peachtext 5000 Software Package 

PFS Software lor IBM and Apple in stock 

VOTRAX Personal Speech System 

BMC 9191 Color Monitor 

BMC 12A 12" Green Monitor 

Dynax Brother) OX-1 5 Daisy Wheel Printer 

Itoh Prowriter Parallel Printer 

Panasonic 1090 Printer with Correspondence Mode 

Daisywriter 2000 with 48K buffer 

Gemini 10X 

EPSON. Okidata, other printers in stock 

USI CompuMOD 4 R F Modulator 

We Stock AMOEK Monitors 

AmdekDXY-100 Plotter 

A P Products 

Watanabe Intelligent Plotter 990 

BROOKS 6 Outlet Surge Suppressor/ Noise Filter 

Electrohome 1302-2 13" Hi-res RGB Monitor 

Panasonic 12" Monitor (20 MHz) with audio 

Syoortek SYM-t Microcomputer 



185 

219 

280 

229 

85 

469 

379 

1050 
299 

29 



590 

15% OFF 

6-pen 1290 

54 

335 

139 

189 



ALL BOOK and SOFTWARE PRICES I .PJ.SCOUNTED 

USI Video Monitors— Green or AMBER 20 MHz hi-res, 
Dealer and OEM inquiries invited 

Yf&iTgt I data 
I systems 

ZVM-122A 109 ZVM-123G 99 

ZVM-131 300 ZVM-135 510 

HERO 1 Robot (factory assembled) 2145 

229 Terminal (DEC and ADM compatible) 680 

ZT-10 Intel. Terminal with Serial Port 340 

Z1 00 1 6-bit/8-bit Systems CALL 
We stock entire Zenith line. 




A 

ATARI* 

SPECIALS 



WE STOCK ENTIRE LINE— write for prices. 
SPINNAKER and Broderbund Software in Stock 



215-822-7727 

252 Bethlehem Pike 
Colmar, PA 1891 5 



A B Computers 



WRITE FOR CATALOG. 



sPOKE 752,0 



= Atari =^^z^=^^=^^=^^= 

Listing 1 (continued) 

200 POKE 752, l:P0SITI0M 0,22: 

PRINT "Q ■ . SELECT , OPTION, or START ..';: 

POKE 752,0 
210 C0NO=PEEK (53279): ; IF C0N0=7 THEN 210 
220 IF C0N0=6 THEN 1000: REM START 
222 IF C0N0=5 THEN 250: REM .SELECT 
224 IF CQN0=3 THEN 2000: REM OPTION 
226 GOTO 210 

250 IF LL0=25 THEN LL0=11:MAX0=11:X0=1:6QT0 300 
260 LLO=25:HAJtO=38: 1(0=14 
300 POSITION 0,22: POKE 752,1: ~ 

IF HAXO=il THEN PRINT "D Editing conent C 

field.": POKE 752,0: SOTO 320 
310 PRINT "B Editing expression field. 
320 POSITION XO,YO:PRINT "**";:GOTO 100 
1000 8L0=PEEK!88i:6M0=PEEK(89):PQKE 752,1 
1100 FOR 80=1 TO 800 STEP 40 

1102 GOSUB IMPOSITION 13, INT (80/40): F 
PRINT " l*)K "; 

1103 IF STO*(80+14,80+38!=SPACEQ$il,25> 

THEN POSITION 14,INT(80/40)+l:FRINT UL0*(1,25): 
60T0 1290 

1104 FOR 880=38 TO 14 STEP -1: 

IF S70* ( QO+880 , QO+QQO ) = " * THEN NEXT 680: 
60T0 1108 P 

1105 IF QQ0=3S THEN 1108 r 

1106 POSITION QQO+1, INT (Q0/40)+l : PRINT ULO*( 1,38-860); 
1108 GOSUB 1960: POKE STARTO.O: 

U0=USR(ADRiMOt),START0,START0+l,959) 
1110 PO=QHO( INT (80/401+1): IF ST0$(P0,P0)="?" 
1120 POSITION 0,4:PRINT ST0*(60+14, 00+38):? :? : 

PRINT "CONT" 
1130 POSITION 0,0:TRAP 1900: POKE 842, 13: STOP 
1140 POKE 842,12: IF PEEK(START0+200K>0 THEN 1990 
1150 GOTO 1290 
1200 POSITION 0,4: 

PRINT "A990=";ST0*(QO+14,QM0(INT(eO/4O)+l)-D: 

? .-PRINT "CONT" 
1210 POSITION 0,0: TRAP 1900:P0KE 842,13:ST0P 
1215 POKE 842,12: IF PEEK(3TART0+200K>0 THEN 1990 
1220 SOSUB 1950: 

POSITION 39-LEN(STR*tA990!),INT(60/40)+l: 

PRINT A990;:S0SUB 1960 
1290 NEXT BO: POKE 752,0 
1300 GOSUB !950:P0SITI0N 13, TNT (QO/40) : PRINT " ";: 

POKE 752,0: GOTO 300 
1900 GOSUB 1950 
1902 POKE 842,12:P0SITI0N 0,22: 

PRINT "DO ?Errar ";PEEK!195);" at line ■; 

INT(B0/40)+l;".';:P0KE 752,0 
1910 XO=HAX0-LL0+l:Y0=INT<6O/40i+l:FQSITION X0,Y0: 



THEN 1200 



PRINT 



:60T0 100 



1950 POKE 88,QL0:P0KE 89, QHO: RETURN 
1960 POKE 88, LO: POKE 89, MO: RETURN 
1990 SOSUB 1950:P0SITI0N 0,22: 

PRINT "W ?Syntax Error at line ";INT(Q0/40) + l; 

\";:POKE 752,0:G0TQ 1910 
2000 POKE 752,1: POSIT ION 0,22: 

PRINT "Q..(S)_ to save, 0)_to load {£)_ to edit.."; 

: POKE 752,0 TJ 



2010 SET il.CO: 
IF CHR*(CO)<) 



'S' AND CHR*(COK>"L" AND CHRI(CO) 



O'E" THEN 2010 
2030 IF CHR*iCO)="E" THEN 300 
2050 POSITION 0,22:PRINT "D Enter filenaae...";: 

INPUT FO*:TRAP 2900 
2040 IF CHR*(C0i="S" THEN 2200 
2100 STO*=" ":ST0t(800)=' ":ST0t(2!=ST0*:ST0t='° 
2110 OPEN #2,4,0,FOt 
2120 FOR 80=1 TO 4: INPUT 12, TEMPO*: 

STO$(LEN!STO*)+l)=TEHPOt:NEXT 80 
2122 FOR 00=1 TO 20: INPUT I2,QH0:QH0(Q0)=QM0:NEXT QO 
2130 CLOSE #2: TRAP 65535 
•2150 FOR 00=1 TO 800 STEP 40 
2152 POSITION l,i:NT(QO/40) + l:F0R 660=11 TO 1 STEP -1: 

IF ST0*(Q0+860, 80+8601=' " THEN NEXT 880: 

? UL0$(1,11);:G0T0 2162 
2154 PRINT STO*(QO+l,QO+QeO!;: 

if eeoai then print ijlo*;i,ii-8bo)j 

2160 POSITION 14,INT!Q0/40I+1:F0R 660=38 TO 14 STEP -1: 
IF ST0*!8O+6Q0,9O+Q60)=" ' THEN NEXT 880: 
? ULO*( 1,25);: GOTO 2170 
2162 PRINT STO$(80+14,80+6QO);: 

IF QC0<38 THEN PRINT ULO*( 1,38-880) 
2164 IF 80/40=INT(80/40) THEN PRINT 
2170 NEXT 60 

2180 L10=25:HAX0=38:Y0=1:X0=14:G0T0 300 
2200 OPEN #2,8,0,F0t 
2210 FOR 80=0 TO 3:PRINT i2;ST0*(fi0*200+l, 80*200+200): 

NEXT 80 
2212 FOR 80=1 TO 20: PRINT l2jOMO(00):NEXT 80 
2220 CLOSE #2: TRAP 45535: GOTO 300 
2900 TRAP 65535.-P0SITI0N 0,22: 

PRINT "ffl ?File input/output error..." 
2910 FOR 00=1 TO 200.-NEXT 80: GOTO 2000 
30000 REM — IHIT — 
30010 MO=PEEK(106):LO=0:STARTO=256tMO 
30020 FOR 80=0 TO 26:T3L0(60)=0:NEXT 80 
30022 FOR 60=32 TO 94:TBL0(Q0)=1:NEXT 00 A 
30024 FOR 60=95 TO 255:TBLO(80)=0:NEXT 80 
30026 FOR 60=28 TO 31:TBL0(80)=2:NEXT 60 
30028 TBL0(27)=3: rBL0U26)=4:TBL0(63)=5:TBL0<155)=6: 

TBL0(125)=7 
30030 LL0=25: MAX0=38 : Y0= 1 : X0= 1 4 
30040 FOR 60=0 TO 3:REftD DXO,DY0:DX0ifiO)=DXO: 

DY0(60)=0Y0:NEXT 80 
30042 READ MOt.-POKE STARTO.O: T7" 

U0=USR(ADR(M0*i ,START0,START0+1,959) ** 
30050 ULO*=" 

30052 ST0$="" 1 :ST0il80O!=" " :STO*72>=STO$ 
30054 SPACEO*=" 

30060 FOR 00=1 TO 20:8H0(60)=(80-l!t4O+30:NEXT 80 

30080 OPEN 11,4,0,'K:' 

30088 POKE 82,0:P0KE 752,1:F0R 80=1 TO 20: 

POSITION 0,60:PRINT " "; ULO*i 1, 11); " "jULO*: 

NEXT 80 
30090 POKE 752,O:POSITI0N XO.YO:? "*«";:RETURN 
32000 REM —ARROW DISPLACEMENTS— 
32010 DATA 0,-1,0,1,-1,0,1,0 
32100 REM —6502 MOVE (FILL) — 
32110 DATA 

hh.Th.TKhaNhHHhnPhao tlK Btf KP HLfHP j fHFQMIfl P FP*Oi 
PPDI 
~~ JMCftO 
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A Brick Wall Demonstration 

Get ready to hit the bouncing ball with youx bumper 
and knock out a few bricks. The farther away the 
brick is, the more points you will get for knocking 
it out. If you are dexterous enough to knock out the entire 
wall of bricks, don't get over confident, the game will con- 
tinue with an even harder screen of bricks. 

Breakup is a simple graphics display game that presents 
the principles of animation with player/missile graphics 
to move characters on the screen and test for collisions. It 
includes a ' 'ball' ' that moves around the screen, rebounds 
from struck objects, and knocks out bricks in the walls of 
bricks. It also includes a player-controlled "bumper" to 
keep the ball from going out-of-bounds and being lost, a 
defined playing field with three walls from which to 
bounce the ball, and some eight rows of blocks, the 
amount of points received for hitting them dependent 
upon their color and distance from your bumper. 

The game keeps score by color; 5 points for the green at 
the bottom, fifteen for the blue above it, and twenty for 
the yellow-orange blocks just above that. When you clear 
the entire screen, you are awarded an extra ball, the paddle 
shortens by one dot and moves closer to the blocks. This 
continues, screen after screen, until the bumper is as small 
and as close to the bricks as it can be. In addition, the 
points received for hitting the blocks are all increased by 3 
points. That is, when you are playing the second screen, 
the green blocks at the bottom of the screen are eight 
points. If you manage to get to even the next screen, they 
will be worth eleven, and so on. Unlike the size of the 
bumper, the values for the bricks have no limit, and may 
increase in value for as long as you can play the game. 



Operating Instructions 

1. Key in 'BREAKUP' from the listing and save it on your 
tape or disk, and then RUN it. 

2. First you are asked whether you will play from paddles 
or the keyboard. Choose the corresponding letter — P, 
orK. 

3. The program will display the playing field, the brick 
walls, and your bumper. When you are ready to start 
play, press the button on the paddle, or the START key 
on the system console. 

4. If you have chosen the keyboard use the cursor left 
arrow and cursor right arrow keys to move the bumper 
left and right. Holding the shift key at the same time 
increases the speed of the bumper. 

5. If, for some reason, you halt program execution with 
the Break key, you must hit the SYSTEM/RESET key 
before re-RUNing. This will be further explained later. 



82 



The Program 

The ball starts from a random position at the bottom of 
the screen and travels upwards, hitting a brick. This 
causes the brick to disappear, adds the appropriate amount 
of points to your score, and rebounds the ball towards the 
bottom. Here is the challenge: You must hit the ball back 
with your bumper to keep the ball from traveling out-of- 
bounds and off the screen, thereby losing the ball. If you 
are successful, the ball will simply hit another brick and 
bounce back. If you miss the ball, a buzzer will sound and 
the program halts until you hit the paddle or the START 
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button. You are allowed six balls total, plus an extra one 
for every screen you clear. Also, the angle and relative 
speed of the ball increase the closer you hit the ball to the 
ends of the bumper. Hitting the ball near the center of the 
bumper helps to restore the ball to a less radical angle. 

Breakup's Animation: The Idea of Player-Missile 
Graphics 

The animation in Breakup was done with the Atari's 
Player-Missle (PM| graphics capabilities. I used PM 
graphics because the speed of moving figures (players) 
around on the screen, such as the ball and paddle, is very 
fast. Also, PM graphics makes it very easy to test for colli- 
sions. This makes for a faster and more challenging game. 
In fact, even machine language versions of this game, 
which generally don't have to worry about speed due to 
the speed inherent in machine language programs, use PM 
graphics because of its ease of use. 

A player is a zone on the screen that is eight pixels wide 
and extends vertically off both the top and bottom of the 
screen. A missile is generally a very thin player; it is only 
two pixels wide and likewise, extends past the top and bot- 
tom of the screen. There are several locations (registers) 
that correspond to the characteristics of each of the players 
and missiles, such as color, pixel width, priority, collision 
detection, and horizontal position of each. The reason the 
players and missiles are so relatively thin when compared 
to their height, stems from the fact that there is no vertical 
position register for them, only a horizontal position 
register. This means that in order to move a player ver- 
tically (as needed by the ball, for example), we have to 
physically redraw the player either higher or lower in 
memory. But before we deal any further with the describ- 
ing locations of PM graphics, lets first uncover how the 
Atari handles PM graphics in the first place. 

The Atari allows for four separate players on the screen 
and four missiles, or five players if you combine all four 
missiles and treat it like a player. There are in general, two 
types of players, those drawn in one line and those drawn 
in two line resolution. One line resolution is just that; the 
players are drawn out one scan line at a time. Two line 
resolution is simply drawing the players out two scan lines 
at a time. One line resolution, while it allows for better 
looking pictures, takes 2K of memory to store, while two 
line resolution takes IK of memory to store. Each player in 
one line resolution takes 256 bytes to describe (one for 
each scan line from the very top of the screen to the bot- 
tom), and each player in two line resolution only takes up 
128 bytes as each byte corresponds to two scan lines in- 
stead of simply one. Note that not only does the better 
resolution take up more room, but the memory used for it 
must start on a 2k boundary (the starting location must be 
divisible by 2048) while the two line resolution memory 
only has to start on a IK boundary (starting location is 
divisible by 1024). Thus we have to be somewhat careful 
in our placement of the player-missile memory. 

The Atari finds this memory through its base address 
register, which is location 54279. That is, location 54279 
tells the Atari where to go to find out what the Players 
look like. But since the location is only one byte in size (it 
is only one location) it has to hold the page numbei of the 



PM memory. A single byte, which can hold any number 
from to 255, will be able to address any one of the 256 
pages in the Atari. The paging method is simply a way for 
the Atari to find its way around with only one byte telling 
it where to go. 

That's the Way the Ball Bounces. 

Another time saving feature of PM graphics is its colli- 
sion detection capability. A collision occurs when any 
player or missile touches something other than the 
background. This capability allows the program to, with a 
single PEEK statement, find out if anything is hitting any 
one of the players or missiles, or if they are touching 
anything. This makes the whole checking routine for the 
ball and paddle collisions very fast. 

The way this collision detection works is simple. 
There is a register for every possible PM collision. The 
Player to Playfield collisions register is the location that is 
read constantly to see if the ball (player 0) has hit 
something, so that the appropriate ball movement routine 
can be activated. Similarly, the player to player collision 
register is read to see if the paddle has hit the ball. 

Combining a few things... 

To make the colored bricks, we used redefined 
characters in graphics mode 2. We used characters simply 
because of the color capability, and ease of drawing and 
erasing. Characters in graphics mode 2 can be displayed as 
four different colors. So, we re-defined the character "$" 
to a 7 dot x 5 dot brick. 

The first 384 bytes of memory (in double line mode) 
are always unused. And the first 512 bytes remains unused 
because this program did not enable the missiles 
(everything is done with the players.) This means that we 
have 512 bytes sitting there on a IK boundary, doing 
nothing. This is perfect for a graphics 2 character set. By 
using this space for the somewhat altered character set, we 
can store something that would normally require 1 V4K ( IK 
for the PM storage, and ViK for the character set) in 
only IK. 

The actual movement of the ball was calculated out in 
BASIC and executed in machine language. This is because, 
as mentioned earlier, PM graphics is great and quick for 
moving figures horizontally, but vertical movement must 
be done manually. BASIC proved to be much too slow for 
this. There are other ways around it, but having a machine 
language routine was the easiest. 

Program Description 

The routine to move the ball and the paddle, test for 
collisions, and do anything else involving animation is en- 
tirely contained in the lines 100 to 190. Note that this 
routine is almost at the very top of the program; all ini- 
tialization and other routines are done below it. This is a 
programming trick to speed up the game, because the 
more lines that exist above a routine, the slower that 
routine will be. This has to do with the fact that when a 
GOTO is encountered, BASIC starts looking for the 
destination line number from the top and checks them all 
one by one until it finds where it has to go. This takes 
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time, and if you have a lot of lines above the routine, this 
will take a lot of time. Therefore all routines that are not 
time dependent, such as the initialization and score keep- 
ing routines, appear below the movement routine. In this 
way, no time is wasted during the movements. 

Line 10 dimensions all the strings and arrays used by 
the program: M$ holds block move routine discussed in 
previous chapters, M2$ holds the ball movement routine, 
BALLS holds the Player-Missile description for the ball 
(only twenty bytes worth], A holds the possible angles 
resulting from a collision with the bumper, P holds the 
points for each line of bricks on the screen, and PAD holds 
the descriptive byte that describes how the paddle looks 
from screen to screen. All of these will be covered a little 
better in a minute. 

Line 20 calls the initialization routine at line 30000. 

Line 30010 lowers the top of memory pointer by IK 
(four pages] to make room for the player-missiles and ne^w 
character set. Fortunately, location 106 points to a 4K 
boundary, so subtracting IK from this location insures 
that the location will be on a IK boundary (it will be 
divisible by 1024). The graphics 1 screen is initialized 
right after the pointer is moved, so that the computer can 
re-adjust the appropriate pointers to the new loss of 
IK memory. 

In line 30012, START is assigned the address of the 
new memory area, and the two machine language routines 
are loaded in. 

Line 30014 pokes the starting location with a zero and 
propogates it through the entire IK by moving 1023 bytss 
from the starting location to just the following location. 
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Line 30020 uses the Block Move routine to move the 
standard character set from ROM to the new memory 
allocated just before the PM memory area. This allows us 
to redefine the few characters we have to and keep the rest 
of them as they are. 

Line 30030 and 30040 make players 2 and 3 into the 
left and right walls of the game. These walls could have 
been merely character, as is the top wall above the bricks, 
but they were made as players so that a single check could 
be made to determine if the ball should bounce horizon- 
tally or not. 

Line 30044 puts the description of a 7 dot wide paddle 
into the player 1 area. 

Lines 30050 to 30054 redefine the two characters 
whose internal value is 4 and 5 ("$", and "%" respectively), 
to the brick and solid block. The latter is used in the draw- 
ing of the wall on the top of the screen. 

Lines 30060 to 30066 define the values of all the con- 
stants in the program. The majority of these are the loca- 
tions for characteristic changes in the player missiles. 

Line 30070 opens the keyboard for later input. It will 
remain open during the entire execution of the program. 

Line 30080 sets up all the game values. (See the 
variable tables for details) . 

Lines 30082 to 30090 load in the values for the A, P and 
PAD arrays. 

Lines 30100 to 30120 asks the user if he wants to play 
via paddles or the keyboard. CTRL holds the line number 
of the appropriate bumper routine. 

The routine found at lines 30200 to 30260 initialize the 
screen. The PM graphics are enabled, the character set is 
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enabled, and the bricks and walls are set up. 

Line 50 pauses the game until either the paddle or 
START button is pressed. This gives the user time before 
the ball is released. 

The entire game is controlled through lines 100 to 190. 
In line 100, the horizontal and vertical displacements 
are added the the X and Y coordinates of the ball. Then the 
paddle is moved (CTRL is the line number of the ap- 
propriate routine) . A machine language routine that moves 
the ball within the player is then called. This is what hap- 
pens in the routine: 

The routine is passed the following values: 
x coordinate, 
y coordinate, 

the starting location of the ball description, 
the start of Player (where to put the ball), 
and, how many bytes of the ball description to 
move. 

Player is moved horizontally (only one location 
to change) 

Player is moved vertically 
The collision registers are cleared 
The routine then waits for l/60th of a second, 
and then returns to BASIC 
Clearing the collision registers is performed by the inter- 
nal workings of the Atari whenever location 53278 is 
POKEd with any number. l/60th of a second is waited out 
to allow the collisions to register. 

Line 110 assigns the needed collision registers to the 
following variables: BPF (for the ball to character colli- 
sions), BPL (Ball to wall collisions), and PB (Paddle to 
ball collisions). Y is then checked to see if the ball has 
been missed. 

Line 150 turns off any sound that may have turned on 
by some previous collision. BPF is then checked to see if it 
has hit playfield 0, 1 or 2 (one of the hittable bricks. If a 
collision has occurred, then control is passed to the brick 
routine at line 200. 

Line 160: If the ball has hit playfield 3, then reflect 
(negate) the vertical displacement and make a sound. 

Line 170: If the ball has hit either wall, then horizon- 
tally reflect it and make a sound. 

Line 180: If the paddle has hit the ball then vertically 
reflect it. H is then assigned the appropriate angle of 
horizontal reflection. A sound is made. 

Line 190 returns control back to line 100 in the event 
that none of the above has occurred. 

Lines 200 to 210 handle the brick colliding routine: 
Line 200 prints a space over the brick, effectively eras- 
ing it, adds the appropriate amount of points to the score, 
vertically reflects the ball, makes a sound, and subtracts 
one from the number of bricks variables (NB). 

Line 202 prints the score. If NB is zero, then control is 
passed to the new screen routine. 

Line 210 passes control back to the main loop. 
The value of CTRL is set in the routine at 30100, and is 
either a 300 or a 400. CTRL is the line number of the 
appropriate bumper routine. If the game is controlled by 
the paddles then CTRL is 300, and if it is controlled by the 
keyboard, then CTRL is 400. Line 300 assigns the variable 
PP with the paddle position negated and moved to the 
right a little. The Paddle value was negated so that paddle 
movement would correspond to the bumper movement on 



the screen. Lines 400 to 420 move the paddle left or right 
one pixel depending upon whether the left or right arrow 
key was held down. If the shift key was held down then 
the paddle is moved in the direction specified by five pix- 
els instead. This allows the paddle to speed up if it has too. 

Lines 500 to 550 contain the missed ball routine. If the 
number of balls left is greater than zero then, the game 
values are re-initialized, the number of balls left is 
decremented by one, and the game resumes at line 50. If 
the number of balls is zero, then the game is over, and you 
are asked if you wish to try again. If you specify "N", then 
the top of memory pointer is reset to its original spot, and 
the program halts. If "Y" was specified, the top of 
memory pointer is reset, and the program is re-RUN. Note 
that if the program is stopped via the Break key, and rerun, 
the top of memory will be even lower than it was before. If 
this is continued, the computer will eventually run out of 
room and unrecoverably crash. It is for this reason, that 
whenever the program stops via the Break key, the user 
should hit SYSTEM/RESET. 

Lines 600 to 690 handle the screen clear routine. If it 
can be done, the paddle is shorted by one pixel and moved 
up three lines. This is done at line 610 by block moving 
the description bytes for the paddle up one byte three 
times. Between each move upward, a sound is briefly 
made and a delay occurs, so that the changing of the paddle 
is more obvious. SZ is a flag telling the program that there 
is still room to move the paddle upward three lines and 
that the paddle can still be shortened. It is incremented 
every time the paddle is raised. If SZ ever reaches 7, then 
the paddle is no longer raised or shortened every time the 
screen is cleared. The points received for each brick struck 
is also increased by 3 for each consecutive screen. When 
this routine is done, the game values are re-initialized and 
the game resumes at line 50. 

The DATA statements on lines 32010 and 32110 hold 
the two machine language routines in string form. These 
are read in to the appropriate strings during the initializa- 
tion routine. 

The rest of the DATA statements on lines 32210 and 
32220, 32310, 32410, and 32510 hold the values for the 
new characters in the character set, the paddle angles, the 
points received for the blocks per line, and the paddle sizes 
per new screen, respectively. They are likewise read into 
their appropriate variables during the initialization 
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Listing 1 

10 DIH H*i54),H2$(99),BALL$l20),A(7>,P(23),PAD(6> 
20 GOSUB 30000 

50 IF PTRIG(O) AND PEEK (53279)06 THEN 50 
100 X=X>H:Y=Y+V:6QSUB CTRL: POKE Pl.PP: 

IMJSR(BALLXY,X,Y,BALL,STP0,14) 
1 10 BPF=PEEK(POPF) :BPL=PEEKiP0PL» :PB=PEEK(P1PL) : 
IF YMil THEN 500 (Continued on next page) 
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Listing 1 (continued) 

150 SOUND 0,0,0,0: IF BPF>0 AND BPF<8 THEN 200 
160 IF BPF>7 THEN V=-V:S0UHD 0,80,10,10 
170 IF BPL>3 THEN H=-H:S0UND 0,80,10,10 
180 IF PB/2(>INT(PB/2) THEN V=-V: 

H=Au-PP+l)*(8FL<=3)+H»(8PL>3): 

SOUND 0,50,10,10:GQTO 100 
190 GOTO 100 
200 RY=IMT!(Y-l6)/4):P0SITI0N IMT ( (X-48) /8> ,RY: 

? #6;" "; :SC=SC+P(R¥) :V=-V:S0UND 0,100,10,10: 

N6=NB-1 
202 POSITION 15,0:PRINT #6;SC:IF NB=0 THEN 600 
210 SOTO 100 

300 PP=250-PABDLE(0): RETURN 
400 I=l:P=PEEK(764i:P=P-64*(P>64):P9=PEEK(53775): 

IF P9<248 THEN 1=4 
410 IF P90255 THEN PP=PP-I:IF P=7 THEN PP=PP*2»I 
420 RETURN 
500 POSITION 5,0:PRINT I6;BL: 

IF BL>0 THEN SOUND 0,200, 12, 14-.F0R Q=l TO 100: 

NEXT Q:SOUND 0,0,0,0:60TO 550 
502 FOR 0=200 TQ 100 STEP -2:S0UND 0,9,10,10: 

SOUND 1,300-0,10, 10: NEXT Q 
504 FOR 8=1 TO 100.-NEXT Q:SOUND 0,0,0,0: 

SOUND 1,0,0,0 
510 POSITION 0,5: 

PRINT 16; 

TRY again (Y/N) 

520 GET tl,C: 

IF CKR*(CK>"Y" AND CHRJIOO'N" THEN 520 
522 IF CHR*f.C) = "Y" THEN POKE 106,PEEK(106)M: 

GRAPHICS lsPOKE 6RACTL,0:RUN 
530 CLOSE #1:P0KE 106,PEEK(106)+4:GRAPHICS 0: 

POKE GRACTL,0:END 
550 BL=BL-1:P0SITI0N 5,0:PRINT t6;BL: 

X=INTU44tRND(0)+56):Y=lll:H=+2:V=-2:PP=124: 

GOTO 50 
600 U=USR(BH0VE,START+512,START+513,127) 
602 FOR 6=200 TO STEP -5:S0UND 0,3,10,14: 

SOUND 0,6/2, 10, 10:NEXT Q; SOUND 0,0,0,0: 

IF PY=82 THEN PY=85:ZERG=1 
610 FOR 8=1 TO 3: 

U=USR ( BMOVE , START+64 1 , START+640+ZER0 , 127 > 
412 SOUND 0,30,8, 14:F0R Qfl=l TO 20:NEXT GQ: 

SOUND 0,0,0,0:FDR 88=1 TO 20:NEXT BflrNEXT 8 
620 SZ=SZM:IF SZ=7 THEN SZ=6 
630 POKE C0LF1, 15: SOUND 0,200, 10, l4:PY=PY-3: 

POKE START+640+PY,PAD(SZ):S0UND 0,0,0,0: 

POKE COLF'1,78 
634 FOR Q=0 TO 23: IF P(8)>0 THEN P(B)=P(8)+3 
636 NEXT Q 
640 BL=BL+1:NB=144:G0SUB 30200:X=INT(144tRND(0>+56): 

Y=111:H=-2:V=-2:PP=124 
690 GOTO 50 
30000 REH —INITIALIZATION— 
30010 POKE 106,PEEK(106)-4:GRAPHICS 17 
30012 STHfiT=256tPEEKi 106): READ H*,M2*:BN0VE=ADR(H$i: 

BALLXY=ADRiH2*J 
30014 PGKE START, 0:U=USR(8H0VE, START, START+1, 10231 
30020 U=USR(BHaVE,256*PEEK(756) .START, 512) 
30030 POKE BTART+788,255: 

U=USR(BH0VE,START+788,START+799,91!:REH L WALL 
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30040 POKE START+916,255: 

U=USRSBM0VE,START+916,START+917,91):REM R WALL 
30044 POKE START+740,254:REM PADDLE 
30050 FOR CN=4 TO 5 
30052 FOR fi=CN»8 TO CN«8+7:READ B: POKE START +8, D: 

NEXT 6 
30054 NEXT CN:REH NEW CHARS 
30060 P0=53248:P 1=53249 :P2=53250:P3=53251: 

P0PF=53252:P0PL=53260:P1PL=53261:HITCLR=53278: 

DMACTL=559:6RACTL=53277 
30062 SIZEP0=53256:SIZEP1=53257:SIZEP2=53258: 

SIZEP3=53259:COLPO=704:COLP1=705:COLP2=706: 

COLP3=707 
30064 PHBASE=54279:CH8ASE=756:STP0=START+512-6 
30066 BALLt=' ft WtMtttttf : BALL=ADR ( BALL* I 
30070 OPEN # 1,4,0, "K:" 
30080 X=INT(144»RND(0)+56I:Y=111:H=+2:V=-2:8L=5: 

NB=144:FY=100:PP=124 
30082 FOR 8=0 TO 7:READ D:A(8)=D*2:NEXT 8: 

REH PADDLE ANGLES 
30084 FOR 8=0 TQ 23:READ D:P(Q)=D: NEXT 9: 

REM POINT VALUES 
30090 FOR 8=0 TO 6:READ D:PAD(8)=D:NEXT 8: 

REM PADDLE SIZES 
30100 POSITION 0,5:PRINT 16;" pADDLES OR kEYBOARD"; 
30110 SET II, C: 

IF CHR$(CX>"P" AND CHRtlOOT THEN 30110 
30120 CTRL=400:EF CHR*IC)="P" THEN CTRL=300 
30200 POSITION 0,0:POKE PHBASE, PEEK (106): 

POKE CHBASE, PEEK (106) 

30210 position o.isprint i6;"mn.TO3!ramixnfl' 

30212 PRINT 16; 

■ mmmmmm mmmmmm 
ttmtmmmm mmmmmm ■ 

30220 PRINT #6; 

30230 POKE P2,48:P0KE P3,201:P0KE C0LP0,14: 

POKE COLP 1,78: POKE C0LP2,70:P0KE C0LP3,70 
30240 POKE SIZEP0,0:P0KE SIZEP1,0:P0KE SIZEP2,0: 

POKE SIZEP3,0 
30250 POKE DHACTL,42:P0KE GRACTL,2 
30260 POSITION 5,0:PRINT #6;BL:P0SITI0N 15,0: 

PRINT #6;SC 
30900 RETURN 

32000 REM —BLOCK HOVE ROUTINE — 
32010 DATA 

hhiUiiKh.HliiHh.'lPliiin tlKPHKP HjLfMP HNFQXOIj y FP 
XOiPPQ* 

32100 REM —BALL MOVE ROUTINE — 
32110 DATA 

hhhttPhhWh^hnKhHNh^M^itnNhhir^nHltPBt^ 
•ntPj^'H.Pxl 
32200 REM — NEW CHARS (*,!) — 

32210 DATA 0,0,0,127,127,127,127,127 

32220 DATA 255,255,255,255,255,255,255,255 

32300 REH — PADDLE ANGLES— 

32310 DATA -2, -1.5,-1, -.5, .5, 1,1. 5, 2 

32400 REH —POINTS PER LINE— 

32410 DATA 0,0,0,20,20,15,15,0,5,5,5,5,0,0,0,0,0,0, 

0,0,0,0,0,0 
32500 REH —PADDLE SIZES — 
32510 DATA 0,126,124,60,56,24,16 JUCRO 
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least expect it, 

II 

♦ ♦♦ 





In a few millionths of a second, common electrical surges and spikes 
can enter your data processing equipmentand cause memory loss, 
false logic and misregistration. Surges very often do permanent 
damage to microcircuitry. 

FUEXIDVCT Surge Suppressors catch surges and spikes before they 
have a chance to enter your equipment In billionths of a second 
(Nanoseconds),FUXIDUCT Surge Suppressors dissipate surges and 
spikes from any side of the line (most protect only one side). 

The multi-outlet unit is ideally suited to the computerized work- 
station. It gives you the advantage of circuit breaker protection with 
plenty of outlets for data processor and peripheral equipment 
No computer should be without the protection of a FLEXIDUCT Surge 
Suppressor...csp«eially yoors! Write or call for further information 
Available from office products retailers. 



ZZZ^T® Surge Suppressors 



a product of Winders & Geist, Inc P.O. Box 83088 Lincoln, NE 68501 402/474-3400 
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From Here To Atari 



by Paul S. Swanson 

The listings accompanying this column provide my 
Christmas greetings to you. The assembly code is 
for reference. The BASIC program contains the 
resulting machine language in the data statements. It is an 
example of using display list interrupts. Enter the BASIC 
listing to see a color display. 

Several display list interrupts control the changing col- 
ors in the triangular "tree" in the display and two more 
are used to color the trunk and to change the text window 
background to black. Every line of the mode 5 triangle has 
an interrupt on it. The colors are rotated under the control 
of the BASIC program. 

The BASIC program begins by drawing the tree using 
dots of random colors. The background color is the only 
one not used in that section. Later, the display list inter- 
rupt will constantly alter the contents of the referenced 
color registers. The trunk is drawn with the color from 
register 2, which is declared in BASIC with COLOR 3. 
This is the same color register used for the text 
background. 

Establishing the points for the interrupts is done in 
lines 120 through 160. First, DL is set equal to the location 
of the display list. Next, all of the bytes controlling lines 1 
through 31 are altered. The 138 used is the code for 
GRAPHICS 5, which is 10, plus 128, which sets the 
display list interrupt enable bit. The tree occupies screen 
lines 1 through 30 and screen line 31 is the first line on the 
trunk. The line before the text window gets the last inter- 
rupt, which will be used to set the text background to black. 

The display list interrupt is read into page six in 
lines 170 through 190. The vector is set up to point to 
the routine in line 200 and the first statement in line 
210 enables the interrupt. Q is used to control the color 
base for the interrupt routine and A controls whether 
the message is "MERRY CHRISTMAS" or "HAPPY 
NEW YEAR." 

The BASIC loop that occupies lines 220 through 280 
alters the color base and prints the messages. The inter- 
rupt is going constantly, so the BASIC program does not 
need to call anything. All that it changes is the contents of 
location 1664, which is used by the interrupt as the color 
base. The two phrases, controlled by A, are printed using 
the loop at lines 230 through 260. The FOR/NEXT loop 
within that loop controls the timing for printing the in- 
dividual letters. Lines 270 and 280 dorm a delay at the end 
of each phrase, then set up A to point to the other phrase. 

The assembler routine starts by saving the three 
registers on the stack. Since it is interrupting the program 
and it will use these three registers, they must be saved. 
Otherwise, the program that is interrupted will have the 
wrong values in the registers when the interrupt returns. 

VCOUNT contains the number of the current screen 
scan line divided by two. This will serve to divide the in- 



■ Atari := 

terrupt into three parts. The triangle shape requires a color 
rotation, the trunk requires that register 2 be set to brown 
and the text window requires that register 2 be set to 
black. VCOUNT is 79 at the interrupt where the trunk 
color is to be selected, so it is compared to 79. If it is 
found to be 79, a branch is made to STUMP, where brown 
is stored in register 2. If it is found to be greater 
than 79, a branch is made to WINDOW, where register 2 is 
set to black. 

If it is neither equal to nor greater than 79, the color 
rotation is performed. Since the interrupt happens during 
the last scan line of the previous mode line, a STA 
WSYNC, which stops the processor until the end of the 
current scan line, must be performed before the registers 
are changed. Preparation for this involves placing the 
proper colors into the 6502 registers. 

The colors are based on whatever is in location 1664, 
which is controlled by the BASIC program. This is added 
to VCOUNT and placed in register Y. For register X, $15 is 
added to the color and $2A is added for register A. 

The STA WSYNC is performed next, immediately 
followed by the three statements that place the colors in 
the registers. Although the timing is not critical in this 
program, because the colors affected are not near the left 
edge of the screen, the placing of the colors takes place 
totally within the horizontal blank period. The three store 
commands require 12 machine cycles and there are 26 in 
the horizontal blank period, although a few of these are 
stolen by DMA. 

Since the color changes are not critical for the trunk 
and the text window, WSYNC is ignored and the colors are 
stored directly into the color registers. The $26 is 
equivalent to SETCOLOR 2,2,6, which is the brown used 
for the tree trunk. In WINDOW, the background is set to 
black and the text (register one] is set to a medium white. 

The EXIT routine must restore the three registers in 
the reverse of the order in which they were stored on the 
stack. After restoring the three registers, the interrupt 
mask (processor I bit) is cleared and the return from the in- 
terrupt is performed. The processor I bit is set when the in- 
terrupt is called and leaving it set prevents other interrupts 
from altering the timing in this interrupt. 
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POKEY Timers 

Another interesting set of interrupts are controlled by 
POKEY, which is the device responsible for the sounds and 
operation of the serial I/O bus. There are three POKEY 
timer interrupts available for general program use, referred 
to as POKEY timers 1, 2 and 4. These use the values in the 
AUDF registers, which are the same ones used for genera- 
tion of sounds. 

The advantage to the POKEY timers over the display 
list or vertical blank interrupts is that they are controlled 
through independent counters. Display list and vertical 
blank interrupts depend on the 60 Hz television frame rate 
and cycle at that frequency. The POKEY interrupts are 
completely controlled by frequencies which can be set 
by software. 

To get an exact frequency with a POKEY timer is not 
that easy unless the frequency you want is an even multi- 
ple of the clock rates. There are three clock rates available, 
just as there are for the sound channels. In fact, they are 
MICRO 89 
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the same sources. The "normal" frequency, which is the 
one selected when the system is booted, is 63.9210 KHz. 
This may be changed to count at 1.78979 MHz or 15.6999 
KHz. When the interrupt routine is enabled properly, an 
interrupt happens each time the counter reaches zero. The 
frequency set for the clock rate can be used to calculate the 
frequency of the interrupt. The interrupt frequency is 
equal to: 



the clock frequency /(2 
register)) 



[ 1 + number in the AUDF 



POKE the value N into the register and the frequency of 
the interrupt is the frequency set (the 64 KHz or 15.7 
KHz)/|2*|Nl)J. For 1.79 MHz, there is a slight modifica- 
tion of the formula. Divide the 1 . 79 MHz by two times the 
sum of N plus 4. If you are clocking two channels together, 
use 7 instead of the four. If you don't know what that 
means, use 4. 

When you use the timer interrupts, pay close attention 
to what is on the system stack. Before jumping through 
the timer interrupt vector, the operating system pushes 
the A register onto the stack. Before your routine starts, 
you should push the X and/ or Y registers onto the stack if 
you intend to use them. Before you return from the inter- 
rupt, pull X and/or Y registers off the stack, then PLA and 
clear the interrupt with CLI. If all that was pushed onto 
the stack is not pulled off, or if more is pulled off than was 
put on, the system will crash or at least lock up as soon as 
you enable the interrupt. 

The method for implementing the POKEY timers is 
stated inaccurately in the manuals. If you set it up the way 
the manual states, your system will lock up and you will 
have to press SYSTEM RESET to continue. Instead, first 
set up AUDCTL ($D208, or 53768) with zero for 64 KHz, 
one for 15 KHz or 96 for 1.79 MHz. Next, set the volume 
(AUDC1, 2 or 4 at $D201, $D202 or $D204 53761, 53762 
or 53764). Now you can set up your software interrupt 
routine and change the interrupt vector to point to it. The 
three vectors are at $0210, $0212 and $0214 (528, 530 and 
532) . The above steps can be in any order. After all of them 
are completed, start the timer by POKE 53769,0 (actually, 
any number from to 255 can be POKEd here and you will 
get the same effect). After all that is done (not before the 
POKE 53769, which is what the manual states), enable the 
timer interrupt. 

Enabling the interrupt involves PEEK(16). Add 1, 2 or 4 
to that value, which corresponds to the interrupt you are 
using, and POKE the number back into location 16 and 
also into location 53774. Once you do that, your interrupt 
will begin and an interrupt will be generated when the 
timer you set counts down to zero. As soon as the inter- 
rupt happens, the timer is automatically loaded with the 
value you origionally POKEd there, so the process repeats 
until you disable it. 

Problems to Watch For 

Problems associated with POKEY timer interrupts in- 
volve timing and other interrupts. DMA can alter, un- 
predictably, the amount of time between the interrupt and 
the first action taken by your interrupt routine, making 
the timing a little less precice. The average over several in- 
terrupts will be at your selected frequency, but the timing = 
90 MICRO 



between two consecutive actions may be off by a few clock 
cycles if DMA is not disabled. 

Other interrupts can also introduce problems. The major 
problem is the vertical blank interrupt. The only solution 
to this is to turn off the interrupt, and the display list inter- 
rupts if any are enabled, by POKEing a zero to location 
559. Make sure you do all your SETCOLOR, GRAPHICS 
and other statements that depend on shadowing first or 
resort to using the hardware registers. That POKE also 
turns off the real time clock and keyboard auto-repeat. 

Another interrupt source is the IRQ interrupts. These 
can be masked out by setting the corresponding bits in 
locations 16 and 53774 to zero, storing only the 1, 2 or 4 
for the POKEY interrupt in those locations. Another 
possibility is to SEI at the beginning of the interrupt (don't 
forget CLI at the end). 

If you do not disable the keyboard, you may get some 
additional delays on some of the interrupts. The keyboard 
click uses the STA WSYNC command, which stops all 
processing, including interrupt servicing, until the end of 
the current television scan line is complete. Also, any 
other interrupt that leaves the processor "I" bit set will 
cause the processor to ignore the interrupt. Peripheral ac- 
cess may do this. 

If you set up the POKEY timers to do something for 
you, you may have few, if any, problems with them. The 
problems mentioned above can be used as places to check 
if the timing is found to be innaccurate. If you set 
everything up the way I have described and the system 
locks up when you enable the interrupt, your machine 
language may have a fatal error. If you find no error, turn 
the computer off then on to reboot and try it again. 

One undocumented note on the POKEY timers is that 
you can change the frequency between interrupts. If the 
calculations for the desired frequency are not exactly what 
you want, maintain a counter somewhere in memory. At 
the beginning of the routine, use STA to put the value into 
AUDF that BASIC placed there. Increment the counter and 
test it to see if it counted to where you want to make an 
adjustment. If it is there, store the adjustment frequency 
into AUDF and reset the counter to zero. The next inter- 
rupt will obey the new frequency, then put the old fre- 
quency back into AUDF. Remember that this is not 
documented, so it may not work on all Atari computers. 
Test it out before you depend on it. 

Enabling the POKEY timer interrupts involves a lot of 
calculation. However, if they are properly enabled, very 
precise timing can be done with them. I am preparing a 
project using those timers and I will be writing an article 
describing it completely. 

Next Month 

I recently acquired an ATR8000, which is a device con- 
taining a Z80 processor, memory, a printer port, an RS- 
232-C port and disk controller logic so that you can hook 
up "bare" disk drives to your Atari. The ATR8000 offers 
CP/M compatibility and, when the CP/M option is not in 
use, the ATR8000 will act as a printer buffer. A functional 
description of the ATR 8000, along with pricing, will be 
featured in next month's From Here to Atari. 

"You Tiriayicoatact Paul at 97 fa'ckson "St., JMCOO" 

Cambridge, MA 02140. m *-*0' . 
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Listing 1 



D40B: 

DOli: 
D017: 
D018: 
D40A: 



0600 
060 1: 
0602 
0603: 
0604 
0605 
0608 
060 A; 
060C 
060E 
060F 
0612; 
0613 
0615: 
0616 
0618 
0616 
061E 
0621 
0624 
0627 
0629 
062C 
062F, 
0631 
0634 
0636 
0639 
063A 
063B 
063C 
063D 
063E 
063F 



48 
98 
48 
8A 
48 

AD OB 
C9 4F 
FO IB 
10 21 
18 

&D 80 
A8 

69 15 
AA 

69 2A 
8D OA 
8D IB 
8C 16 
SE 17 
4C 39 
A9 26 
8D 18 
4C 39 
A9 00 
SD 18 
A9 OA 
BD 17 
68 
AA 
6B 
A8 
68 
58 
40 



00005 

00010 

00020 

00030 

00040 

00050 

00060 

00070 

00080 

00090 

00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

D4 00200 

00210 

00220 

00230 

00240 

06 00250 

00260 

00270 

002B0 

00290 

D4 00300 

DO 00310 

DO 00320 

DO 00330 

06 00340 

00350 

DO 00360 

06 00370 

00380 

DO 00390 

00400 

DO 00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 
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* DLI ROUTINE 

i 

* EQUATES 

t 

VCOUNT .EQ $D40B * SCAN LINE COUNTER 

COLORO .E8 $0016 * FOR SE.O, 

C0L0R1 .EQ $D017 t FOR SE.l, 

C0L0R2 .EQ $D018 * FOR SE.2, 

WSYNC .EQ $D40A * WAITS FOR HBLANK 
t 

* INTERRUPT ROUTINE 
t 

.OR $600 * FOR PA6E 6 
DLIROUT PHA * SAVE REBISTERS * 

TYA 

PHA 

TXA 

PHA 

LDA VCOUNT * CHECK 

CUP #79 * SCAN 

BEQ STUMP * LINE 

BPL WINDOW 

CLC 

ADC 1664 * ADD COLORBASE 

TAY 

ADC #$15 

TAX 

ADC t$2A 

STA HSYNC * WAIT FOR BLANK 

STA C0L0R2 * STORE COLORS 

STY COLORO 

STX C0L0R1 

JflP EXIT 
STUHP LDA #$26 * BROWN TRUNK 

STA C0L0R2 

JHP EXIT 
WINDOW LDA #0 * BLACK BACKBROUND 

STA C0LOR2 

LDA #10 * WHITE LETTERS 

STA COLOR 1 



EXIT 



PLA 
TAX 
PLA 
TAY 
PLA 
CLI 
RTI 



* RESTORE REBISTERS 



* CLEAR INTERRUPT 
* AND RETURN 



Listing 2 

5 REN *** Listing 2 - Christie Greetings 

6 REN *** Prograt by Paul S. Sanson 

7 REN *** 

10 GRAPHICS 5 

20 FOR 1=0 TO 30:REN * DRAW TREE * 

30 FOR JMO-I/2 TO 40+1/2 

40 COLOR INT(RND(0>*3+1) 

50 PLOT J,I + t 

60 NEXT J:NEXT I 

70 COLOR 3 

80 FOR 1=34 TO 44:REN * DRAW TRUNK * 

90 PLOT I ,32 
100 BRAHTO 1,38 
110 NEXT I 

120 DL=PEEK(560J+FEEKi561)*256: 
REM * LOCATE DISPLAY LIST * 
130 FOR l=DL+6 TO DL+36:REH « SET INTERRUPTS * 



S 
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140 POKE 1,138 

150 NEXT I 

160 POKE DL+44,138 

170 LOC= 1536; RESTORE :REM * READ DLI ROUTINE * 

ISO READ N 

190 IF N<>256 THEN POKE L0C,N:L0C=L0C+1:60T0 180 

200 POKE 512,0:P0KE 513,6:REH t ENABLE DLI * 

210 POKE 54286,1 92: Q=255:A=0 

220 RESTORE A+2000:? CHRt(125): 

REM * PRINT HESSAGE * 
230 READ N: IF N=256 THEN 270 
240 ? CHR$(N!j" "j:POKE 1664,Q:Q=Q-1: 

IF Q<0 THEN Q=255:REH * Q CONTROLS COLORS * 
250 FOR 1=1 TO 50:NEXT I: 

REH * DELAY BETWEEN LETTERS * 
260 60T0 230 
270 FOR 1=1 TO 300:NEXT I: 

REH * DELAY BETWEEN MESSAGES * 
280 A=1000-A:60T0 220 
999 REM * DLI ROUTINE IN DECIMAL * 
1000 DATA 120,72,152,72,138,72,173,11,212,201,79, 

240,26,16,32,109,128,6,168,105 
1010 DATA 21,170,105,42,141,10,212,141,24,208,140, 

22, 20B, 142,23, 208, 76, 57, 6, 169 
1020 DATA 38,141,24,208,76,57,6,169,0,141,24,208, 

169,10,141,23,208,104,170,104,168,104,88,64, 

256 

1999 REM * MESSAGE #1 * 

2000 DATA 32,77,69,82,82,89,32,67,72,82,73,83,84,77, 
65,83,256 

2999 REM * MESSAGE #2 * 

3000 DATA 32,72,65,80,80,89,32,78,69,87,32,89,69,65, 
82,256 JMCftO 



Computer Software Associates, an 
established software house, supplies 
software for COMMODORE, APPLE, 
and IBM home computers. CSA is cur- 
rently looking to expand its product 
base of serious programs in the areas of 
home, education, and office. 

Computer Software Associates of- 
fers over 30 years of market experience, 
worldwide distribution, innovative 
packaging, generous royalties, and pro- 
grammer support. 

Interested programmers should 
contact Mike Mahan, Product 
Development Department, Computer 
Software Associates, 50 Teed Drive, 
Randolph, Massachusetts 02368. Tel. 
(617) 961-5700. 



COMPUTER 
SOFTWARE 

ASSOCIATES 
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Atari Reviews 



Product Name: Square Pairs 



Equip, req'd: 

Price: 

Manufacturer: 



Atari Computer, BASIC, Cassette Player 
? 

Scholastic Inc. 
906 Sylvan Ave. 
P.O. Box 2010 
Englewood, NJ 07632 



Description: A game of matching. Square Pairs allows up 
to four players to take turns uncovering two boxes at a 
time and finding two that match. 

Pluses: Even though there are three games included, the 
most interesting part of the program is the ability to make 
up your own games. After making up a game it can be saved 
on tape. This allows for more game variety. 

Minuses: The program is only available on tape and will 
only interact with a Atari cassette recorder. 

Documentation: The sixteen page manual is clearly writ- 
ten. Most of it is applied towards making up and sav- 
ing games. 

Skill level required: Designed for seven through twelve 
years of age. May not have much attraction to those over ten. 

Reviewer: Richard E. DeVore 



Product Name: 


Turtle Tracks 


Equip, req'd: 


Atari Computer w/32K, BASIC, Disk 




Drive, Atari Printer optional 


Price: 


? 


Manufacturer: 


Scholastic Inc. 




906 Sylvan Ave. 




P.O. Box 2010 




Englewood Cliffs, NJ 07632 



Description: Turtle Tracks is an interesting method for 
children to learn the fundamentals of programming. By 
typing in simple programs, they are shown, by a "turtle" 
drawing on the screen, exactly what their program does. 

Pluses: The self-booting program is well error-trapped, 
allowing mistakes to be made without crashing. It allows 
loops and variables, demonstrating on the screen what 
they do. There is also a small segment on sound with 
enough information to let you compose simple music. If 
there is an Atari printer connected to the system, a print 
out of the screen may be made by just pressing the OP- 
TION key. 

Minuses: The program is slow in accepting keyboard in- 
put. The longer a program gets, the slower the cursor 
responds. Program execution is also slow. 




Documentation: The eighty page manual is quite well 
done. It carries you from loading the program through sav- 
ing and reloading your work. One of the clearest for 
children I have seen. 

Skill level required: Beginner, recommended minimum 
starting age is nine years old. 

Reviewer: Richard E. Devore 



Product Name: MMG Data Manager 

Equip, req'd: Atari Computer w/48K, BASIC, Disk 

Drive; printer optional 
Pike: $49.95 

Manufacturer: MMG MICRO SOFTWARE 

Manalapan 1000 Office Building 

1000 Route 9 

Englishtown, NJ 07726 

Description: MMG Data Manager is a file management 
program for any Atari computer with sufficient memory 
and a disk drive. You may set up your records and fields to 
suit your particular needs. Although a BASIC program, it 
has machine language routines and is quite fast in use. 

Pluses: The 26 page manual that comes with the program 
is quite clear and takes you step by step through the use of 
its features. The program is menu driven and simple 
enough to use that the manual may not be necessary after 
the first or second time a record is set up. The sort routine 
is extremely fast and may be used on up to three levels. 
The program is well error trapped, making use by the 
beginning computerist easy. 

Minuses: There can be a maximum of only ten fields. The 
fields do not support computations. A record, once set up 
cannot be reconfigured. These minuses are features usually 
found in much more expensive programs and are not often 
available in this price range. 

Documentation: The manual is easy to use and under- 
stand. It is a tutorial showing how each program function 
is used. 
Skill level required: Beginning level user. 

Reviewer: Richard E. DeVore 



Product Name: 


WORDRACE & WORDRACE Accessory 




Disk 


Equip, req'd: 


Atari 400/800 w/32K & BASIC 




Cartridge 


Price: 


? 


Manufacturer: 


Don't Ask Computer Software 



2265 Westwood Blvd., Suite B-150 
Los Angeles, CA 90064 
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Description: As the name suggests, this is a word game 
that tests vocabulary skills. Game players, from one to 
four, must find the correct definition of a word from six 
possible choices. The clock is ticking so find the correct 
answer as quickly as possible. Choose your strategy: guess 
quickly or take more time to study the definitions. Loose 
points for incorrect answers or too much hesitation. There 
are three levels of play for everyone from pre-teens to pun- 
dits. The number of words in each round of play is select- 
able, also. For those more interested in sports or famous 
historical persons, an extra-cost accessory diskette is 
available. After booting the system diskette, insert the 
alternate data diskette and the new game data will load. 

Pluses: Challenging and educational. This game would 
also be a valuable [and fun!| way for a student to prepare 
for college entrance exams. 

Minuses: The graphics are simply boring, but word game 
lovers will overlook this aspect of the software's design. 

Skill level required: Age 9 to adult. 
Reviewer: Tim Kilby 

Product Name: Preparing For the SAT 

Equip, req'd: Atari Computer, Atari 410 Recorder 
Price: $99.95 

Manufacturer: Program Design, Inc. 

1 1 Idar Court 

Greenwich, CT 06830 

Description: Preparing For the SAT is a cassette based 
series of lessons designed to help prepare for aptitude 
testing, especially the Scholastic Aptitude Test. The 
lessons cover analogies, vocabulary, quantitative com- 
parisons, and number relationships. There is one cassette 
devoted to the taking of aptitude tests with the back side 
containing a time program for practice. There are a total of 
six cassettes included with the manuals. 
Pluses: Two of the programs have a voice narration in- 
cluded on the cassette for reinforcement. This is a feature 
used by PDI that I feel greatly enhances the learning pro- 
cess. The information included in the manuals is valid and 
the programs are well done. After a demonstration, the 
adults attending spent over an hour working with the 
various lessons. They not only felt they were learning but 
found it enjoyable at the same time. 
Minuses: Other than the fact that printed tests cannot be 
made from the programs, I found nothing to complain about. 
Documentation: The programs come with two manuals. 
One is titled "Making The Grade, How To Take and Pass 
A TEST." This 34 page manual was written by the presi- 
dent of PDI, John Victor. He explains what the tests are, 
the best methods to use when taking them and shows ex- 
amples of the types of questions used in the testing. The 
other 44 page manual explains how to use the programs 
and has a large section devoted to explaining the problems 
on the cassettes. They are well done. 

Skill level required: High school student or anyone with 
an inquiring mind. 



Reviewer: Richard E. DeVore 
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Let Unique Data Systems help you raise your sights on AIM 65 
applications with our versatile family of AIM support products. 

•Go for high quality with our ACE-100 Enclosure. It accom- 
modates the AIM 65 perfectly, without modification, and features 
easy access two board add-on space, plus a 3" x 5" x 1 7" and a 
4" x 5" x 15.5" area for power supplies and other com- 
ponents. $186.00. 

• Get high capability with Unique Data System's add-on boards. 
The UDS-100 Series Memory-I/O boards add up to 16K bytes of 
RAM memory or up to 48K bytes ROM/PROM/EPROM to your 
Rockwell AIM 65. You also get 20 independently programmable 
parallel I/O lines with an additional user-dedicated 6522 VIA, two 
independent RS-232 channels with 16 switch-selectable baud 
rates (50 to 19.2K baud), and a large on-board prototyping area. 
Prices start at $259.00. 

• If you need to protect against RAM data loss, the UDS-100B of- 
fers an on-board battery and charger/switchover circuit. $296.00. 

• Heighten your AIM 65's communications range by adding the 
UDS-200 Modem board. It features full compatibility with Bell 
System 103 type modems and can be plugged directly into a 
home telephone jack via a permissive mode DAA. No need for a 
data jack or acoustic coupler. The UDS-200 also has software- 
selectable Autoanswer and Autodial capability with dial tone 
detector. The modem interfaces via the AIM 65 expansion bus, 
with the on-board UARTand baud rate generator eliminating the 
need for an RS-232 channel. $278.00. 

• The UDS-300 Wire Wrap board accepts all .300/.600/.900 IC 
sockets from 8 to 64 pins. Its features include an intermeshed 
power distribution system and dual 44-pin card edge connectors 
for bus and I/O signal connections. $45.00. 

• Get high performance with the ACE-1 00-07 compact 4" x 5" x 
1 .7" switching power supply, delivering + 5V @ 6A, + 1 2V @ 1 A, 
and + 24V for the AIM printer. $1 1 8.00. 

Installation kits and other related accessories are also avail- 
able to implement your AIM expansion plans. Custom hard- 
ware design, programming, and assembled systems are also 
available. High quality, high capability, high performance, with 
high reliability. . . all from Unique Data Systems. Call or write 
for additional information. 

Unique Data Systems Inc. 
1600 Miraloma Avenue, Placentia, CA 92670 

(714)630-1430 
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Products for Commodore, Atari, Apple, and others! 



& 



THE MONKEY WRENCH II 

A PROGRAMMERS AID FOR ATARI 800 

NEW AND IMPROVED - 18 COMMANDS 

PLUGS INTO RIGHT CARTRIDGE SLOT 




$59.95 



If you are a person who likes to monkey around with 
the ATARI 800, then THE MONKEY WRENCH II is 
for you!! Make your programming tasks easier, less 
time-consuming and more fun. Why spend extra 
hours working on a BASIC program when the 
MONKEY WRENCH can do it for you in seconds. 
It can also make backup copies of boot type 
cassette programs. Plugs into the right slot and 
works with ATARI BASIC cartridge. 
The MONKEY WRENCH provides 18 direct mode 
commands. They are: AUTO LINE NUMBERING - Pro- 
vides new line numbers when entering BASIC program 
lines RENUMBER - Renumbers BASIC'S line numbers 
including internal references. DELETE LINE NUMBERS 
— Removes a range BASIC line numbers. 
VARIABLES — Display all BASIC variables and their current value. Scrolling — Use the 
START & SELECT keys to display BASIC lines automatically. Scroll up or down BASIC pro- 
gram. FIND STRING - Find every occurrence of a string, XCHANGE STRING — Find every 
occurrence of a string and replace it with another string. MOVE LINES — Move lines from 
one part of program to another part of program. COPY LINES — Copy lines from one part 
of program to another part of program. FORMATTED LIST — Print BASIC program in 
special line format and automatic page numbering. DISK DIRECTORY — Display Disk 
Directory. CHANGE MARGINS — Provides the capability to easily change the screen 
margins. MEMORY TEST - Provides the capability to test RAM memory. CURSOR 
EXCHANGE — Allows usage of the cursor keys without holding down the CTRL key. 
UPPER CASE LOCK - Keeps the computer in the upper case character set. HEX CON- 
VERSION — Converts a hexadecimal number to a decimal number. DECIMAL CONVER- 
SION — Converts a decimal number to a hexadecimal number. MONITOR — Enter the 
machine language monitor. 

In addition to the BASIC commands, the Monkey Wrench also contains a machine 
language monitor with 16 commands used to interact with the powerful features of the 
6502 microprocessor. 
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VIC RABBIT CARTRIDGE 
AND CBM 64 RABBIT CARTRIDGE 



"High-Speed 
Cassette 
Load and Save!' 




; $39.95 
(includes Cartridge 
and Manual) 



Expansion Connector 
on the VIC Cartridge 



"Don't waste your Life away waiting to LOAD and SAVE 
programs on Cassete Deck." 

Load or Save 8K in approximately 30 seconds! Try 
it — your Un-Rabbitized VIC takes almost 3 minutes. 
It's not only Fast but VERY RELIABLE. 
Almost as fast as VIC Disk Drive! Don't be foolish — 
Why buy the disk when you can get the VIC Rabbit 
for much, much less! 

Easy to install — it just plugs in. 

Expansion Connector on rear. 

Works with or without Expansion Memory. 

Works with VIC Cassette Deck. 

12 Commands provide other neat features. 

Also Available for 2001 , 4001 , and 8032 



TELSTAR 64 



Sophisticated Terminal Communications Cartridge for the 64. 

•PFO* I0O 000 CPO1>02 BELL 12:30:00 10:14:36 
(TELSTAR's Status Line) 

Don't settle for less than the best! 

• Upload/Download to/from disk or tape. 

• Automatic File Translation. 

• Communicates in Industry Standard ASCII. 

• Real-Time Clock plus Alarm Clock. 

• Line editing capability allows correcting and resending long 
command lines. 

• 9 Quick Read functions. 

• Menu-driven. 

• Similar to our famous STCP Terminal package. 

• Works with Commodore Modems and supports auto-dialing. 

The best feature is the price — only $49.95 (Cartridge and Manual) 



ATARI, PET, AND CBM 64 
EPROM PROGRAMMER 



Programs 2716 and 2532 
EPROMs. Includes hardware 
and software. PET = $75.00 
- ATARI and CBM 64 (both 
include sophisticated machine 
language monitor) = $119.95 



xT'J»HJMl> 




Prownter Printer - Excellent dot matrix print Parallel = $489 00 
Serial » $600 00 IEEE = $589 00 



Machine Language Monitor 
Cartridge 

for the CBM 64 

More than 20 commands allow you to access 
the CBM 64's Microprocessors Registers 
and Memory Contents. Commands include 
assemble, disassemble, registers, memory, 
transfer, compare, plus many more. 

Someday every CBM 64 owner will need a 
monitor such as this. 
Cartridge and Manual - $24.95 



CBM 64 Debugger 

A more sophisticated Machine Language Monitor/Debugger. 20K 
of object code makes this a powerful tool. Works as a symbolic 
debugger tor the MAE assembler. Diskette and Manual - $49.95 



II 



TRAP 65 

TRAP 65 is a hardware device that 

plugs into your 6502's socket Prevents 

execution of unimplemented opcodes 

and provides capability to extend the 

machines' instruction set. 

For PET/APPLE/SYM. 

Reduced from $149 95 to $69 95 



0C Hayes Smart Modem = $235 00 
DC Hayes Micro Modem II = $289 00 



Rana Oisk Onve - 375 
4 Orive Controller - 114 



More than just an Assembler/Editor! 
Now for the "64" \ 



■\ 



It's a 

Professionally 

Designed 

Software 

Development 

System 



A 






MAE 

for 

PET 
APPLE 

ATARI 
$t€9S5 

Only 
$59.95 



NOW, The Best for Less! 

• Designed to improve Programmer Productivity 

• Similar syntax and commands — No need to retear n 
peculiar syntaxes and commands when you go 
from PET to APPLE to ATARI. 

• Coresident Assembler/Editor — No need to load 
the Editor then trie Assembler then the Editor, etc. 

■ Also includes Word Processor, Relocating Loader 
and much more 

• Join the ATUG User Group for MAE formatted 
disks 

• STILLNOT CONVINCED? Send for free specsheet! 



5% INCH SOFT 
SECTORED DISKETTES 

Highest quality. We use them on 
our PETs, APPLEs, ATARIs, and other 
computers. $22.50/10 or $44.50120 




EPROMS 2716 = $4 50 2532 = $750 

Over 40 Commodore Programs by Baker (on 4040| = 



$25.00 



er 



S 



3239 Linda Dr. 
Winston-Salem. N.C. 27106 
(919)924-2889 (919)748-8446 
Send for free catalog! 



LMosterCord ■ 
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Raise your Apple's IQ 

e Times A Year! 




A One Year Subscription 
Brings You 12 Issues With: 

Over $500 of Programs for your Home, Business, Education 
and Entertainment. Complete Program Listings with 
Instructions. 

Comprehensive Articles that show what each program does, 
how to use it and how to type it into your Apple, Franklin ACE or 
other Applesoft-compatible computer. 

Regular Features for die Beginner and Expert. 
On The Scene 

The Latest New Software/Hardware Releases. 
Products! Inside and Out 

Comprehensive Product Reviews. 

Education Corner 

Programs that help make Learning Fun. 
Tips 'N Techniques 

Little known programming Tricks you can Use. 

Disassembly Lines 

An Expert reveals the mysteries of Applesoft. 
Utilities 

Superchargers for Basic, DOS, Printing, and More. 

Games 

Arcade Fun you can Type and Run. 

Note 

□ Domestic U.S. First Class subscription rate is $51 .95 

Q Canada Air Mail subscripton rate is $59.95 

D Outside the U.S. and Canada Air Mail subscription rate is $89.95 

AM payments must be in U.S. funds drawn on a U.S. bank. 

©1983 by MicroSPARC Inc. All Rights Reserved. 

Apple* is a registered trademark of Apple Computer, Inc. 
ACE S is a registered trademark of Franklin Computer, Inc. 



Try a NIBBLE! 

Here's what some of our Readers say: 

□ "Certainly the best magazine on the Apple!" 

□ "Impressed with the quality and content. " 
O "Programs remarkably easy to enter. " 

O "I'll be a subscriber for life!" 

□ 'Your service is fantastic . . .as a matter of fact, I'm 
amazed!" 

Try a NIBBLE! 

NIBBLE is focused completely on the Apple and 
Applesoft-compatible computers. 

Buy NIBBLE through your local Apple Dealer or subscribe now 
with the Coupon or Order Card in this issue. 

You'll want Back Issues Too! 

Here are some examples of programs you can get: 

The Investor— Stock Tracking, Reporting, and Graphing. 

Recipe Box— Kitchen/Menu Management made Fun. 

The Librarian— Auto Logging and Retrieval of your Disks. 

Designer/Illustrator— Art/Design Creation and 
Composition with Graphics. 

Machine Language Editor— Quick and Easy Aid for Typing 
and Changing M/L Programs. 

And Much . . . Much More! 
NIBBLE will become a permanent part of your Reference 
Library. Discover why 95% of NIBBLE Readers save every issue! 

Join more than 120,000 Apple/Ace users who say: 
"NIBBLE IS TERRIFIC!" 

SUBSCRIBE NOW AND SAVE $12.00 OFF THE COVER PRICE! 



nibble 



VISA 



We accept Master Charge & Visa 



Box 325, Lincoln, MA 01773 (617) 259-9710 

I'll try nibble! 

Enclosed is my $26.95 (lor 12 issues) 
(Outside U.S., see special note on this page.) 

D check D money order D bill me (U.S. only) 

Your subscription will begin with the next issue published after receipt of your 
check/money order. 



Card # . 



PLEASE PRINT CLEARLY 



. Expires . 



Signature . 
Name 



Address . 

City 

State 



.Zip. 
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., '; h^t will quickly |ify^5p^ 

'- J ' v^ti^ programs, modifying them 
+ MICRO CalC.a miniature spread- «$S ,^ -lwf{lft|0:featur©s alf onypqroiiB|| 

""" '"' """" * r ^£v^-A^;to^ 



You'll 
Receive: 



sheet program that makes complex, repetitive 
calculations a breeze. 



^^ MASTER. ..a guessing game that teaches 
programming with random numbers and flags. 



-already^kay^-iB^I^Jj^ 
' accompa^^l^;! 
cassette. 



^ VIC ClOCk.. .to teach you ON..GOSUB function 

and character graphics. "&&*$ 

BREAK-U P...a popular game that also teaches how 
animation is achieved with PEEKS and POKES to screen memory. 



Use this coupon or the postage paid card in this issue to order. 

MICRO Books P.O. Box 6502, Chelmsford, MA 01824 



□ YES, please rush . 



. copies of MASTERING YOUR VIC-20 (w/cassette), 



at only $19.95 per copy (plus $2.00 s/h, MA res. add 5% sales tax). 



My payment of $_ 



NAME 



ADDRESS 
CITY 



CREDIT CARD #. 



is enclosed. I'm paying by □ Check □ MO 

□ VISA □ MC 



. STATE . 



ZIP. 



_EXP. DATE 



Allow &S weeks for delivery. 



' PIUS... music programming, 
string manipulation, sorting 
demonstrations, and more. 

Each Program 

Worth the Price 

of the Book! 

Order your copy of 

MASTERING 
YOUR VIC-20 

Today! 
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Interface Clinic 



by Ralph Tenny 

A computer can be interfaced to 
real time events, but if a com- 
puter is to be able to react with 
and control real time activities, it must 
know when the events are happening. 
There are two basic ways to accomplish 
this — polling and interrupts. An inter- 
rupt is a way to signal a running com- 
puter — gaining its attention — that it 
must delay further execution of the 
running program to service another 
event. Most modern microprocessors 
have provision for three kinds of inter- 
rupts. The first, called RESET, is used 
on startup and causes the micropro- 
cessor's internal registers to be set to a 
known condition instead of the random 
condition which happens when power 
is first applied. In addition, the internal 
RESET algorithm initiates certain 
operations, including reading an exter- 
nal memory location for (usually) the 
address of the programmer's idea of a 
proper initialization routine. This is 
called indirect addressing, which 
means that the first data read from 
memory is not an instruction but the 
address of an instruction. 

Two other interrupts are common 
also. The IRQ (Interrupt ReQuest) is 
typically a maskable interrupt (mean- 
ing it can be turned off via a software 
flag), and the NMI (Non-Maskable In- 
terrupt) are usually available on 
modern microprocessors. These inter- 
rupts cause some portion of the 
microprocessor's status to be saved so 
the interrupted program can be re- 
sumed in orderly fashion. Those of you 
with 6809-based machines also have 
three software interrupts (similar to the 
6502's BRK instruction) and the FIRQ 
(Fast Interrupt ReQuest) which 
responds more rapidly than IRQ by sav- 
ing fewer processor registers) . 

Programming for interrupts requires 
special precautions and programming 
methods. Not only do you have to have 
special interrupt service programs, you 
must carefully manage the interrupt 
enable bit and the associated hardware 
which causes the interrupt. It is univer- 
sal practice that interrupt input pins 
are at logic one level during normal 
operation, and respond (issue an inter- 
rupt) when the pin is pulled to logic 
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zero. Usually, the NMI interrupt is 
edge-sensitive (a negative-going input 
is latched internally) so that the pin 
must go high and then come low again 
before another interrupt is accepted. 
IRQ inputs are usually level-sensitive; 
if the interrupt service routine is com- 
pleted before the pin is released, 
another interrupt will be issued im- 
mediately. In one aspect, the 
microprocessor's response to either 
IRQ or NMI is identical — the current 
instruction is completed before the in- 
terrupt is honored. In most cases, the 
microprocessor also ignores further in- 
terrupts until the current interrupt ser- 
vice routine is finished. This is ac- 
complished by using the RTI (ReTurn 
from Interrupt) instruction to ter- 
minate the service routine. 

The program in the listing il- 
lustrates how to handle interrupts 
caused by the CD input of the serial 
port. This input drives the CA1 pin of 
the I/O PIA of the Color Computer, 
and the IRQ output from the PIA is con- 
nected to the 6809's FIRQ pin. The IRQ 
and the FIRQ interrupts each have their 
own disable flags. If either bit is set to 
logic one, the corresponding interrupt 
is inhibited or turned off. Unlike some 
processors (6502 for example] which 
directly set or clear status register bits, 
the 6809 uses special AND or OR in- 
structions which set or clear selected 
status bit. One such example is shown 
in the listing one line above the label 
SPIN ($301D) -ANDCC $BF. If you 
remember how the logical AND works, 
any bit in the operand is set to zero if 
the corresponding mask bit is zero. In 
this case, the bit mask (pattern) is $BF, 
which has all bits except Bit 6 set to 
logic one. Thus, Bit 6 in the operand 
(Condition Code register or Status 
Register) is set to logic zero,- this 
enables (turns on) the FIRQ interrupt. 
Similarly, at the label QUIT ($3055) 
the instruction ORCC $40 is used to 
turn off the FIRQ interrupt. Refer to 
Figure 1, which shows the PIA Control 
Register and briefly identifies the func- 
tions of each Control Register bit. For 
now, we will skip a complete descrip- 
tion of this register's functions; in- 
stead, note bits 6 and 7, which are IRQ 
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flags. CA1 is always an input and can 
be programmed as an interupt; CA2 can 
be either an ouput or input/interrupt. 
Similar relationships are true for Con- 
trol Register B, CB1 and CB2. If CA1 
and CA2 are programed as interrupts, 
Bit 7 responds when CA1 is pulled low, 
and Bit 6 responds to CA2. Last 
month's applications program polled 
the RS-232IN line (bit of the port), 
but since our serial adapter also pulses 
the CD input, we could have polled bit 
7 of the Control Register instead. 

Let's examine the program flow in 
the listing. Beginning at the label 
START, the location BUFR (defined at 
the program's end) is cleared, then the 
time constant DVAL is stored in 
CoCo's baud rate buffer. The next com- 
mand points the Y INDEX to the next 
location past BUFR; this can be 
omitted after program debugging; it 
simply provides a record of the input 
values to aid in troubleshooting. The 
next three instructions read the current 
value in the PIA Control Register, turn 
on Bit 0, and restore the modified 
value. This is the first of three steps re- 
quired to completely enable the inter- 
rupt structure so this PIA can cause a 
processor interrupt. 

The second portion of setting up an 




AppUr2£&7tee 
Electronics 

PROWRITER PRINTER 

$395 



HARDWARE 



FRANKLIN 



ACE 




The Professional Personal Computer 
INTRODUCTORY PACKAGE 

* Franklin Ace 
1000 

* 1-Disk Drive 

* Green Monitor 

$1595 

QUICK BROWN FOX 
$5525 

CALL FOR THIS MONTH'S SPECIAL 

1-800-835-2246 EXT. 211 

OR 

702-459-4114 



™g™ 5130 East Charleston Blvd. .dftfk 
l^iM Suite 4M ^04^ 

Las Vegas, Nevada 89122 

Add $3.00 for shipping, handling and insurance. 

Nevada residents add 5.75% sales tax. Please include 

phone number. Equipment subject to price change 

and availability. Call or write Tor price list. . 
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TAYLORMADE SOFTWARE • TAYLORMADE 
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For the COMMODORE 64™ and VIC 20™ 

TOUCH TYPING TUTOR 

19 lessons— Watch your TV screen to learn proper finger placement. 

PRACTICE— learn your word/min. rate typing pseudo words. 

TEXT— English sentence fragments for timed tests of any duration. 
Includes 12-page manual. 

TTT64D Diskette $24.95 

TTT64 Cassette $19.95 

TTT5K VIC Cassette $19.95 

PINBALL MATH 

Improve math skills playing PINBALL MATH! Add, subtract, multiply, 
divide, each with 3 levels from basic facts to two-digit operands. Sprites, 
sound, pinball graphics, scoreboard. For students in grades 1-6. 

PM64D Diskette $24.95 

PM64 Cassette $19.95 

PM-VIC+8K Cassette $19.95 

FUN FRACTIONS 

Watch VIC show you all the steps to do addition, subtraction, 
multiplication, division, and reductions of fractions. Your turn; can you 
answer before the parachute jumper crashes? For students in grades 
4-9. Includes 16-page manual. 

FF-VIC+8K Cassette $19.95 



Note: Product code gives computer and memory required. 

U.S./Canada add $1.50 shipping/handling 

COO charge $1.65 

Foreign orders payable U.S. funds plus $4.00 shipping 



TAYLORMADE SOFTWARE 

P.O. Box 5574 

Lincoln, NE 68505 

(402) 464-9051 




MEMORY FOR YOUR VIC-20 

PLUS A LITTLE EXTRA 



32K Dynamic Ram — Same type as Commodore 64 
24K Used normally, for full expansion. Blocks 1, 2, & 3, 
"EXTRA" 8K maps into block 5, normally used for ROM 
cartridges (Games) 

Access from BASIC for data storage, only through 
PEEK and POKE 

Accesses in assembler for data, or write your own 
GAMES, & boot into them normally 
The 3k "Block 0" ram has been intentionally left free for 
the VIC Superexpander 

Each 8K block can be switched in or out for compatability 
with games, or other peripherals 
Powered by your VIC-20 (175 ma typ) 
Plugs directly into VIC expansion slot or motherboard 
Complete, assembled, & tested 
90 day "No questions asked" money back return 
5 year manufacturer's warranty 

$109.95 

TEMPUS 

Dept M101, 832 Brown Thrush 

Wichita, KS 67212 

We carry the entire XETEC line for VIC-20 and C64. Write for 
literature. Master Card and VISA accepted! Send card number & 
expiration date. Handline charges add $3.00. Personal checks 
take 3 weeks to clear, before we ship. VIC-20 & Commodore 64 
are Commodore trademarks. 



interrupt is to load the vector, which is the address of a 
routine to service (respond to] a particular interrupt. The 
6809 microprocessor has provisions for eight interrupts, 
seven of which have been implemented and one has been 
reserved for future expansion. Upon receipt of an inter- 
rupt, the 6809 reads one of the eight two-byte values it 
finds in the memory space $FFF0 to $FFFF. When a Syn- 
chronous Address Multiplier (SAM) is in the system, as in 
the Color Computer, SAM forces these interrupts to be 
moved to $BFF0-$BFFF. If you examine memory (use a 
debug monitor or PEEKs), you will find some two-byte 
values stored as part of the BASIC ROM. Some of those ad- 
dresses point to the memory area beginning at $0100. 
Remember, the interrupt structure expects these address 
vectors to be indirect addresses which point to the inter- 
rupt service routine. Since these routines can be 
anywhere, and of any length, a jump table is used. This is a 
series of absolute jumps, listed one after the other in 
memory. So, for any of the vectors beginning at $0100, 
you will find 7E XX XX, where XX XX represents the start- 
ing address of the interrupt service routine. The FIRQ vec- 
tor is used to auto-start CoCo from a ROMPACK, so 
BASIC initializes the FIRQ vector at $010F. If we wish our 
FIRQ service routine to be used, then we must substitute 
our vector for the BASIC vector. The three program steps 
beginning at $3017 do just that. BASIC has already written 
the code $7E (JMP) in location $010F, so our program reads 
the address of INTSRV and writes two bytes ($302A) 
beginning at $0110. That is Step 2 needed to initialize an 
interrupt. Step 3 follows: read the port to clear Bit 7 in case 
CD has been pulsed while we were talking, and then 
enable the FIRQ interrupt. This cancels any pending inter- 
rupt which came in before we were ready, and allows our 
routine to begin with a clean slate. 

In this particular case, our program simply goes into a 
wait loop, checking the keyboard to see if we push a key. 
Anytime an interrupt comes in, the eight bits captured by 
the serial adapter's input pin come spinning in, just as 
they did when we polled the RS-232IN line last month. 
This has been a slightly simplistic explanation, but it is 
accurate for any CoCo which does not have Extended 
BASIC. Extended BASIC runs a software timer based on 
IRQ, and triggered by a 60 Hz interrupt signal on CB1 of 
the keyboard PIA, but since FIRQ is a higher priority (more 
important) interrupt, our signal will dominate. Since our 



H? 



- CA1 disable 
= CAl enable 



CAJ HI 
CAl LO 



LD 
HI 



10 = DDR select 

11 « Port select 



-ICA2 Control bits 



-ICA2 Interrupt Flag 



-ICA1 Interrupt Flag 



Figure 1. Control Register of the 6821 PIA. Bits and 1 
control the CA1 Interrupt input pin (see text). 
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routine will run longer than the 16.6 
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clock will miss a "tick" every so often. 
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If you depend on this clock, you may 
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FIRQ 


E8U 


$18F 


FIRQ INTERRUPT VECTOR 


wish to poll the serial adapter instead of 






00AB 


DVAL 


ECU 


*AB 


DELAY VALUE 


run it under interrupt control. 
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BAUD 


E9U 


$95 


BUFFER FOR DELAY CONSTANT 








A800 


POLCAT 


EQU 


$A888 


KEYBOARD SCAN 


Once the interrupt happens, the 
code at label INTSRV begins to exe- 






FF28 


FORTOUT EQLI 


IFF28 


RS232 OUT PORT 


cute. Much of this code is identical to 






FF21 


CTLIN 


EQU 


*FF21 


CONTROL PORT FOR SERIAL IN 


the previous programs which we have 






FF22 


PORT IN 


EQU 


$FF22 


SERIAL IN PORT 


used to exercise the hardware, so let's 
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concentrate on the differences. Just as 
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we had to manage the interrupt entry 
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START 


CLR 
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CLEAN SLATE 


software carefully, certain things must 
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be accomplished by the service routine. 
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The processor automatically disables 


3P8 


i8St 


385E 




LDY 


fBUFR+1 


POINT TO RECORD BUFFER 


both interrupt bits whenever either 
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CTLIN 


ENABLE CD INTERRUPT 


IRQ or FIRQ are asserted, and the RTI 


3MF 


SA 


81 




ORA 


#1 




instruction restores the original inter- 
rupt enable status upon exit from the 


3011 


B7 


FF21 




5TA 


CTLIN 




service routine. Obviously, the service 


3014 SE 


382h 




LDX 


ilNTSRV 


RESET FIRS VECTOR 


routine must perform the intended task 


3817 


BF 


8ilS 




ST)! 


FIRQ+1 




which created the need for an interrupt, 


381 A 


Be 


FF28 




LDA 


FORTGUT 


RESET IRQ FLA6 


but it must also clear the interrupt (pre- 


38 ID 


1C 


BF 




ANDCC 


#$BF 


ENABLE FIRQ INTERRUPT 


vent the same interrupt from being 


381F AD 


9F A808 


SPIN 


JSR 


[POLCATI 


TEST KEYBOARD 


asserted again] . 


3S23 


2s 


38 




BNE 


QUIT - 




If external hardware can be cleared 


3825 B6 


FF2s 




LDA 


PQRTBUT 


RESET IRQ FLAS 


or reset to remove the stimulus, this 


3828 


20 


F5 




BRA 


SPIN 


LOOP WAITING FOR INTERRUPT 


must be done. If this cannot be done, 


382A 


?E 


95 


INTSRV 


LDX 


BAUD 


GET DELAY VALUE 


the service routine must continually 


382C 


IF 


10 




TFR 


X,D 


DIVIDE BY TWO 


check for the hardware status, waiting 
for it to clear itself. Our hardware 


382E 


47 






ASRA 






automaticaly removes the stimulus, so 


382F 


56 






RORB 






we have one other thing to clear. Bit 7 


3838 


IF 


0] 




TFR 


D,X 




of the Control Register was set by the 


3032 


SB 


24 




BSR 


DELAY 


AND COUNT IT DDHN 


input pulse on the CD input, and will 


3834 


B6 


FF22 




LDA 


PORTIN 


START BIT? 


remain set until the port is read (label 


3837 


84 


01 




ANBA 


11 




EXIT) . Note that although we read that 


3839 


26 


16 




BNE 


EXIT 


IF NOT, SKIP IT 


port, this value is not used. The service 


383B 


?E 


95 




LDX 


BAUD 


OTHERWISE, GET FULL DELAY TO 


routine is finally terminated with RTI, 


383D 


BE 


19 




BSR 


BELAY 


READ MIDDLE OF FIRST BIT 


and (in this case) operation in the loop 


383F 


C6 


08 


SETUP 


LDB 


18 


BIT COUNT 


SPIN is resumed. Note that almost any 


384] 


B6 


FF22 


INPUT 


LDA 


PORTIN 


READ PORT 


other operation could take the place of 


3844 
3846 








3TA 
LSRA 


,Y+ 




this loop, but this is a simple example, 


A/ 


HP 






so feel free to improvise. 


44 










We didn't get to the real world in- 


3847 


76 


385B 




ROR 


BUFR 


BIT INTO STORAGE 


terfaces I promised last time, so we'll 


384A 


9E 


95 




LBX 


BAUD 


SET UP TIHER 


try again next time. This has been a 


384C 


8B 


8A 




BSR 


DELAY 




learning series, preparing for "greater 


304E 


5A 






DECB 




COUNT BOHN BITS 


things", so any of you who have just 


304F 


26 


F8 




BNE 


INPUT 


AND DO EIGHT PASSES 


joined us may have to review earlier 


3051 


B6 


FF20 


El! IT 


LDA 


FORTOUT 


RESET IRQ FLAG 


columns for background. Let's move on 


3854 


3B 






RTI 




RETURN TO WAIT LOOP 


and do more complex and comprehen- 
sive interfacing! 
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3855 


1A 


48 


QUIT 


ORCC 


**48 


DISABLE INTERRUPT 


3057 


39 






RTS 




AND THEN QUIT 




3853 


30 


IF 


DELAY 


LEAX 


-1,X 




Please forward questions and sug- 


305A 
385C 


26 
3? 


FC 




BNE 
RTS 


DELAY 




gestions for discussion topics to Mj. 


385D 






BUFR 


RUB 


1 




Tenny at P.O. Box 545, Richardson, TX 










END 
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LISA v2.6 



You don't need an I.Q. of 200 to learn assembly language on your Apple II or Apple//e All you need is the 
best 6502 assembler around Lazer's Interactive Symbolic Assembler (LISA v2. 6) LISA is the easy-to- 
learn and easy-to-use system that will have even the absolute beginner up and running in a matter ot minutes 
In addition to LISA'S clearly written 240-page manual more tu'nr'a 1 n-i a t Pr , : ji i S available for LISA than any 
other assembler (including books by D. Fudge, R. Hyde, W. Mauer.and ft Mottola) LISA is it ieDeg inner s besi 
cnoice. 

!ven if your I.Q. is 200. you'll appreciate LISA'S speed, power, and ease of use At 20.000 lines 'minute its 
20 to 30 times faster than ORC A/ M or Apple's own Toolkit assembler That's why people like Bill Budge. Ken 
Williams. Brian Fitzgerald Don Fudge, and Steve Wozmak use it everyday LISA is very usable. That's why it's 
the most often used assembler ever created for the Apple II. 

LISAv2.6 is available for S 79.95 at computer stores everywhere. If your local computer store doesn't have 
a' copy you can order directly from 

Lazerware, 925 Lorna St., Corona, California 91720. (714) 735-1041 
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COMMODORE 64 PROGRAMS 




lectronicySpreadshe 
for the Commodore!) 



The MOST CAPABL 
lectronic Sbread Shee 
br the Commodore 64 
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Skylcs Electric Works 

231 E South Whisman Road 
Mountain View, CA 94041 
(415) 965-1735 



AVAILABLE NOW! Call 800 227-9998** 
For the name of your nearest dealer, 
detailed information or a catalog of products. 

* 'California, Canada and Alaska, please call (415) 965-1735. 



In Europe: SUPERSOFT, Winchester House, Canning Road, Harrow Wealdstone, England HA3 7SJ, Tel. 01 861 1166 
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Next Month In Micro 



ast month in "Next 

L Month in MICRO" we 
promised you articles 
detailing how to define your 
own character sets on the 
new Epson FX-80 printer for 
the Commodore 64, VIC-20, 



and Atari systems. Due to a 
lack of time and space, this 
material was not presented 
this month. It will, however, 
be presented in the next 
issue, and will include pro- 
grams in BASIC to define the 




NO POWER SPIKES 
WITH SUPER FAN II. 



Super Fan II's Zener Ray™ Transient 
Voltage Suppressor and Power 
Filter squelches spikes up to 6000 
amps —even those caused by 
lightning— while responding up to 
100 times faster, than Apple II's 




built-in suppressor. 

In addition, Super Fan II cools 
your Apple, removing heat buildup 
at a remarkable 17 cubic feet of air 
per minute. Yet it's gugigfetti 
fan of its kind on = 
the market. 

Super Fan II - 
also positions a ; 
lighted on/off ; 
computer switch 
and two accessory 

plugs at your fingertips. It's warranted 
for two years and simply clips to 
your Apple II, He or monitor stand. 

See your R.H. Electronics dealer 
today about Super Fan II*, or contact 
us at 566 Irelan Street, Buellton, 
CA 93427, (805) 688-2047. 

RHELECTRONICS, INC. 




Super Fan It, in black or tan: $109. 
Wthoul Zener flay; $74.95. 
Additional air flow seals, $5. 

Available m 240V/ 50 Hz. 



Deater/QEM inquiries invited. 
•U.S. Patent KD268283 
* 4383286 
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France, call B.LP. 1-255-4463 
Australia, call tmagineering (02)212-1411 
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special characters on your 
display, to send the ap- 
propriate information to the 
FX-80 to define the 
characters, and to output 
BASIC listings. Some of the 
routines developed for the ar- 
ticle were used to generate 
listings in this issue. 

The main feature topic for 
January is Communications. 
One of the areas of 
microcomputer usage which 
is really expanding is that of 
telecommunication. There 
are literally hundreds of 
"bulletin boards", "tele- 
services", and so forth for 
you to talk to. MICRO is 
developing on its own hard- 
ware/software system, The 
MICRO Program Dump, that 
will allow subscribers to 
"download" programs that 
are published in MICRO 
directly into their microcom- 
puters. The feature article 
Transfer Programs Over the 
Telephone will help your 
micro tie into the MICRO 
Program Dump. A second 
feature will be on Local Net- 
works, a form of communica- 
tion that allows you to inter- 
connect various system com- 
ponents such as microcom- 
puters, printers, storage 
devices and so forth. A third 
article will be about Using 
the VIC/C64 Parallel Port, 
providing cabling informa- 
tion and a program for 
transfering information via 
this useful, but not well sup- 
ported, device. 
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This Christmas, 

Atari and Commodore owners 

will go out of their minds. 



It'll take about 30 seconds. 

Because once you boot a Datamost game 
on your Atari home computer, or your 
Commodore 64, you'll come face to screen 
with the most mind-blasting games ever. 

And what better time to go out of your 
mind than Christmas? 
Our Music Will Have You Hearing Things. 
Going out of your mind never sounded so 
good. 

Because now our games have music. You 
heard right. Music. Original Music. Through 
out. And scored just for our newest 
releases. You'll go nuts over it. 

Our Graphics Will Have You Seeing 
Things. 

You and everybody else. 

Because our games are so great- 
how great are they ? -they're so great 
you'll want to play them again and 
again and again. And then 
your friends will go 
bonkers over them. 




THE TAIL OF BETA 
LYRAE." Changes as 
you play. Unpredict- 
able. Impossible to 
master. (No one has.') 



TOATAMOS1 

The most out of our minds. 



And they'll want to play. And then your family 
will want to play. And then total strangers off 
the street will want to play and. . . 

Mind-blowing arcade-quality action like 
this makes it one mad world, pal. 

We'll Torment You Right From 

The Start. 

No time to settle down and get comfy. 

The tension begins building the moment 
you boot the game. 

Terrific screen titles tease you with the 
game's objective, scenario, characters. 

And while you wait, hand twitch- 
ing over the Joystick, you'll find 
out what planet you're on. 
What the fuss is all about. 
Why you're involved. And perhaps 
of singular importance to you 
personally, how to keep from being 
obliterated. So get ready to get the 
most out of your mind. 
By getting the most 
out of ours. 



Datamost. Inc., 8943 Billbright Ave.. Chatsworth. CA 91311, (213) 709-1202 
Atari is a trademark of Atari Computer. *Commodore 64 is a trademark of Commodore Business Machines, Inc. TM Registered Trademark of Datamost. 
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COSMIC TUNNELS.™ 


MONSTER SMASH.™ 


NIGHTRAIDERS.™ 


ROUNDABOUT™ 


COHEN'S TOWERS.™ 


MR. ROBOT.™ Screens 


Four games in one. 


Deathly strategy. Mash 


Strafe a city under 


Sharpens your shoot 


You're the mailboy in q 


scream with color, 


Four times the 


the monsters! Let the 


siege with 3D angled 


'em up skills. 24 


big city skyscraper. 


action and sound! 


challenge! Incredible 


visitors live. 


selective firing.' 


different game screens. 


Work your way to the 


Design your own 


graphics. 






Habit-forming! 


top. 


screens, too. 




More speed, more memory 
workspace from the people 
who lifted the 64K limit. 

In 1981, we introduced our famous 
Saturn RAM card to boost the Apple's 
memory by 32K. Now, there are 64K 
and 128K versions for added power. 

Increased RAM lets you run bigger 
programs, and our VisiCalc® expansion 
software provides a dramatic expansion 
of workspace memory. Also, the extra 
memory can work as a pseudo disk for 
instant access. (No more 20-second 
searches!) The Saturn RAM board is a 
super aid for advanced word process- 
ing, data base management, spread 
sheet, and accounting applications. 
And perfect with PASCAL, CP/M®, 
and BASIC. 
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Use our easily installed cards in 
combination — and get a whopping 
220K of VisiCalc workspace on the 
Apple He. Or sensational enhancements 
on Apple II, II + , Franklin, Basis and 
most Apple compatibles. We even have 
software that increases your Apple's 
memory in BASIC programming up to 
4 megabytes! 

This kind of performance requires 
sophisticated bank switching and sup- 
porting software that we originated, 
proved, and improved. Buy from 
the leader! 

Let us help you expand your Apple's 
productivity. For information on our 
RAM boards and other Titan microcom- 
puter products, see your computer 
dealer or contact: Titan Technologies, 
Inc., P.O. Box 8050, Ann Arbor, 
MI 48107; Telephone (313) 973-8422. 

Sales and Marketing by The MARKETING 
RESOURCE GROUP, Costa Mesa, CA. 



ra Titan 

— i ^— TECHNOLOGIES, INC. 

-^^^^^^^^^^^T- FORMERLY SATURN SYSTEMS OF MICHIGAN 



Apple is a registered trademark of Apple Computer, Inc. 
VisiCalc is a registered trademark of VisiCorp, lnc 
CP/M is a registered trademark of Digital Research, Inc. 
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AB Computers 81 
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National Advertising 
Representatives 



Home Office: 
Sheila McDonough, 

Advertising Representative 
10 Northern Boulevard 
P.O. Box 6502 
Amherst, NH 03031 



West Coast: 

The R.W. Walker Co., Inc. 

Gordon Carnle 

2716 Ocean Park Boulevard, 

Suite 1010, 

Santa Monica, California 90405 
(213) 450-9001 

serving: Washington, Oregon, Idaho, Montana, 
Wyoming, Colorado, New Mexico, Arizona, Utah, 
Nevada, California, Alaska, and Hawaii (also 
British Columbia and Alberta, Canada) 



Mid-West Territory: 

Thomas Knorr & Associates 
Thomas H. Knorr, Jr. 

333 N. Michigan Avenue, Suite 400 
Chicago, Illinois 60601 
(312) 726-2633 

serving: Ohio, Oklahoma, Arkansas, Texas, 
North Dakota, South Dakota, Nebraska, Kansas, 
Missouri, Indiana, Illinois, Iowa, Michigan, 
Wisconsin, and Minnesota. 
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SCRIPT 64 ™ Makes 
Your World Letter Perfect 

SCRIPT 64 moves you into the exclusive 
neighborhood of sophisticated word 
processing for an amazing $99.95. 

In addition to all the standard 
text editing features most higher 
priced systems offer, SCRIPT 64 
also gives you an 80 column 
format and a built-in spelling 
dictionary.. .all in one program 
for the Commodore 64*1 

To make your world letter perfect, 
ask your dealer for a demonstration 
of SCRIPT 64 today. 



A Product of: 



^>*-,,V- 



Developed by: 



Richvale 

Telecommunications, 

LTD. 



Distributed by: 



Warehouse 1 , Inc. 

Eastern U.S. 800-253-5330 
Western 800-255-0056 



Computer Marketing DES-Data 
Services, Inc. Equipment Supply 

800-222-0585 213-923-9361 

Also available for the IBM-PC 

Script 64, Commodore 64 and IBM-PC are registered trademarks of Richvale Communications LID 
Commodore Electronics Limited, and International Business Machines, Corp. respectively. 



Blue Sky Software 

Ashland Office Center 
Evesham & Alpha Avenues 
Voorhees, NJ 08043 
609-7954025 



THE SECRETS OF PERFECT MEMORY: 
)NE AND ONE HALF EARTH DOLLARS 



AT LAST: THE WHOLE 
TRUTH ABOUT FLOPPIES. 

Amazing book reveals 

jiin 

, ,ow to keep from 
brainwashing your disk 
so it never loses it's 
memory 

How fingerprints can 
actually damage disks. 
i Jr ii"' touched Kirlian 
photographs of UFO's 
. I entitled Floppy 
( jjects)! The inctetee 
,i nportarice of making 
copH S; the Department 
of Redundancy Depart- 
ment and what goes on 
when it goes on! Power- 
ful 'iff rr-t methods that 
scientists claim can ac- 
tually preveni computer 
amnesia! All this, and 
much more ... 

iri short, ifs an 80- 
page plain -English, 
graphically stunning, 
pocket-sized definitive 
guide to the care and 
feeding of flexible disks 

For The Book, ask your 
nearest computer store 
that sells Elephant" 
disks, and bring along 
one and one half earth 
dollars. 

For the name of the 
store, ask us. 

li'HANT MEMORY 

SYSTEMS Marketed 
exc/usive/y by Leading 
Edge Products, Inc. 
Information Systems 
and Supplies Division, 
55 Providence Highway. 
Norwood, MA 02062 Coll 
to/1 /me r-800-343-840, 
In Massachusetts, call 
cofiea (617) 769-8150 
■ 951-624 
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